F 10 


aaaaaa 
aaaaaa 
qaaaaaaqa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaaaaaadaacdadcdaaaaaaaaaa 
aaaadncaadaadaadaaaaaaaaaa 
oaaqa00000000000000000 
VvouvU VovU 
VU VOU 
Vou Vov 
VOU VYY 
VU Vvv 
VOY VYVY 
Vuuv YVVYV 
VVLv VVvv 
VOU VUYU 
VVUvV VOY 
VOU wWvuv 
VVYU VVeuv 
VYVYVOVYVYVYVVYVYVUYVYVOVYU 
VVOEVVYVEVOEYVYVEVYVYVOLY 
VEO YVYVVEUOUVELUY 
Mn NMNMMMM 
nn ANMNNMNM 
mnn NNANMNMNM 
NAM NNN NNN 
MM Mnwn Mnwn 
NM NM NM 
MMM Mn WnMn 
MM NYM ANNAN 
Mn WMMwn Munn 
MMM nn Mn 
NNN NAN NNN 
Mn NM AMM 
ANNNNMNM NNN 
ANNNNMNYM NNWM 
ANNMNMNMYN ANN 


I 12 


**F ILE**]De*MSCP 


aaaa 

aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaqaaaaaaaaaaaa 
aaaaaaaaaaaaaa 
vv Ve 
vv VY 
VvV Vv 
Vv VY 
Vue vu 
VY vw 
rere) vv 
vy Ve 


VBEYVYVYVYYUYUYUY 
VVOUWUYUIUUWY 


mn NANNY 
nn MMMM 
mw ww mn 
nn nw nw 
nw “wn nn 
wn nw “wn 
ww nn “nn 
nn nw nn 
ANMNM nw 
MMMM nn 


nn MMMM 
nw MMNnM 
“nn nn nn 
“mn nn nn 
nn nn nw 
nn nn nn 
“nw “wn nn 
nn mn “nn 
ANNnN “wn 
MMMM mn 
ied Cn kemed 


LLLLLLLLLL 
LLLLLLLLLL 


J 12 


MSCP - MSCP Server - Emulator 16-SEP-1984 02:00:53 VAX/VMS Macro v04-00 
Table of contents 

(1) 6 DECLARATIONS 

(1) 2 C ICATIONS AREA 

(1) 43 MSU ACTION ROUTINES 

(1) 546 LISTEN ACTION ROUTINE 

(1) 4 VIRTUAL CIRCUIT ERROR ROUTINE 

(1) 13 WAIT FOR INT 

(1) 95 MAIN LINE ROUTINE 

(1) 1090 IMMEDIATE class commands 

(1) 1100 - 1 = ABORT 

(1) 1177 ~ § - GET COMMAND STATUS 

(1) 119 - - GET UNIT STATUS 

(1) 193 - 4 = SET CONTROLLER CHARACTERISTICS 

(1) 1 3 SEQUENTIAL class commands 

(1) 1458 = - AVAILABLE 

(1) 182 ~ = ONLINE 

(1) 1 ¢ ~ Shadow units 

(1) 0 - ONLINE iinadow copy 

(1) $o¢ - ERROR HAN 

(1) 93 = 10 = SET UNIT CHARACTERISTICS 

(1) 439 ~ 11 = DETERMINE ACCESS PATHS 

(1) 449 NON-SEQUENTIAL NON-BUFFER 1 thn commands 

(1) 486 - 1 = ACCESS 

(1) 499 ~ 17 = COMPARE CONTROLLER DATA 

(1) 509 - 18 - ERASE 

(1) 263 ~ 19 = FLUSH 

(1) 539 - 20 = REPLACE 

(1) 549 MAINTENANCE class commands 

(1) 554 NON-SEQUENTIAL BUFFER class commands 

(1) 589 ~ ; = COMPARE HOST DATA 

(1) $00 ~ - REA 

(1) 81 - ad REPAIR routine 

(1) 011 ~ 34 = WRITE 

(1) 112 SETUP = Setup the CDRP for transfers 

(1) 414 DO_DISK & BACK = DISK 10 utility routines 

(1) 555 UTILITY ROUTIN Ss 

(1) 35 DATA STRUCTURE ALLOCATION 

(1) 744 READ ONLY DATA 

(1) 878 INITIALIZATION ROUTINE 


- MSCP Server = Emulator -s 16-SEP-1984 4 96: 90: 33 as Macro V04-0 Page 


OOOQOOCOOoooooo 


SoOooooooooooooooooo 


OOCOCOOCOOCOCOCOOCOOOSSSSSOOOOOOOOOOOOOoOoOOO 
ee ee ee ee ee 


OOOCOCOCOCCOSOOOOSOSOSOOSSOSOSOSOSSOSOSOOOSCOSOOOSOCOO 


ODOoOooooooooooooooooooo 
NAME AN SO OD NA UE UN SO ONAN EWN OS OO NA UE WIN @ O OONO UE WH SOO ONOUES wh 


Be Se Se Ge Ge Ge Se Ge Se Ge Ge Se Gee Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Ge 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
" 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SoooooooSo 
Soooooooo 
PAPIPIDIDIVII ES BB PPLE EE 


SOooooooeo 


=SEP-1984 


eTITLE MSCP = MSCP Server - Emulator 
-IDENT ‘v0Q4-001 


MSCP.SRCJMSCP.MAR; 


RARER EEAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAEEERERAAEAAAEAAETATAAAAAEAES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* OTHER PERSON. NO y TILE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: MSCP Server 

ABSTRACT: 
This program implements an MSCP(Mass ye > — Protocol) server. 
It accepts as input valid MSCP command pac ets. It then accesses the 
disk(s) connected to it to perform the ndicated eperat jens. It 
returns MSCP status packets and possibly data to the driver. 


ENVIORNMENT: User mode 


AUTHOR: Kerbey T. Altmann 
CREATION DATE:06-AUG-1980 
MODIFIED BY: 
V04-001 DWT0240 David W. Thiel 7-Sep-1984 


Disable advertisement of volume shadowing capabilities. 


Vodete Sphecce e allocation scheme. Correct rorerences 
ond CORPSL_CDTX. Tie local COR 

det init ions to global symbols better. Detect "ad 
bugche wom ces onse sent using stale CDT address. 
Deal w th CORP pelle more r en routta d 
bug traps to pack ef deall gcati nm routine. Correct 
packet initialization on Taval 76 commands. Support 
determine access paths. Include every incoming 


v03-015 DwWT0232 David W. Thiel/Ellen M. Batbouta 31-Aug-1984 
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“SEP=19 MSCP.SRCJMSCP.MAR; 


message in OPC_COUNT. Add reference count to HQB. 
Adjus volves Of PACKETS and SMALL to guarantee that 
h nes will not mene, Make acess command return 
nvalid opcode. Validate 1/0 function code before 
queuing coquest to driver. Return correct setting 
of MSCPSB_CPYS for UDA disks. Add many bug traps. 


EmB0108 Ellen M. Batbouta 19=JUL-1984 
ahogs for mount verification in progress on a local 
device in routines, NSEQ and NSEQB. If MV is in 
progress, mark unit as available and return without 
process ing the request. This prevents a deadlock 
situation. 


KTA3130 Kerbey T. Altmann 15-May-1984 
Fix error in subcode. 


KTA3127 Kerbey T. Altmann 23-Apr-1984 
Fix problem with VC error. 


KTA3116 Kerbey T. Altmann 02-Apr-1984 
Decrement UCB queue pongeh cell, and add entry to 
error table for SS$_TIMEOUT. 

KTA3112 Kerbey T. Altmann 12-Mar-1984 
Redo wee UQB pointers are handled. Also redo handling 
of blocked commands. 

KTA3108 Kerbey T. Altmann 06-Mar-1984 


Fix two small bugs and allow for new error return from 
10$_PACKACK. 


v03-008 KTA3089 Kerbey T. Altmann 12-Nov-1983 


v03-007 ROW0278 Ral 
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Rewrite to add shadowing. 


alph 0. Weber 12-JAN-1984 
Remove reference to MSCPSM_UF_INACT, the inactive shadow set 
unit flag. This is no longer a unit flag. 


ROW0246 Ralph 0. Weber 26-OCT-1983 

Move the ‘'no units at this address’ exit label in GET_UNIT_STS 
such that a ‘'next unit modifier’’ get unit status command gets 
° sore, unis number returned when there are no units to 
escribe. 


ROW0236 Ralph 0. Weber 10-OCT-1983 

Move increment of number of online hosts counter in UQB to 
before increment of UCBSB_ONLCNT in online routine. Also make 
increment of UCBSB_ONLCNT conditional on UQB$B_HOST_CNT 
indicating that this is the first host to bring the unit | 
online. This makes online operations consistant with their 
pote | tion by Kerbey and with the operations performed when a 
available command is processed. 


KTA3081 Kerbey T. Altmann = = 13-Sep-1983. 
Upgrade AVAIL support. Add underpinnings for shadowing. 
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Stan Amway 12-Sep-1983 
rmance monitoring aS = 


PSL hen to avoid conf 
NUM7IRPS$L_SEQNUM by PMS routines. 


V03-002 KTA3076 Kerbey T. Altmann 12-Aug-1983 
Add support for explicit PACK_ACK and AVAIL. 
Redo error routines. Return ALLOCLASS. 


V03-001 KTA3070 Kerbey T. Altmann 09-Jul-1983 
Fix bug in host que search. 
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MSCP - MSCP Server - Emulator 16-SEP-1984 02:00:53 VAX/VMS Macro v04-0 
v04-001 DECLARATIONS at ae 96:00:33 EMSCP eRe MSCP.MAR; 
sWORD 0 
“WORD ROUTINE-. 
~ENDC 
~ENDM 


DOQOOOOOCOCoO 


OOCOOCCOOCOoCooooooo 


: EQUATED SYMBOLS: 


: Define MSCP server private areas beyond normal CDRP fields 


0 
0 
0 
0 
0 
; 
0 HOSTSET = <MSCP$M_UF_CMPRD! = 
0 MSCPS$M_UF —CMPWR! 
0 MSCPS$M_UF_576!- 
000 MSCPSM_UF _SCCHH! = 
000 MSCPSM_UF_SCCHL!=- 
000 MSCPS$M_UF —WBKNV !- 
0000147 900 MSCPSM_UF —WRTPS> 
000 NONHOSTSET = <MSCPSM_UF _REPLC!- 
000 MSCPS$M_UF —RMVBL ! = 
000 MSCPS$M_UF_WRiPH! = 
000 MSCPSM_UF —SSMEM! = 
0000E280 900 MSCPSM_UF—SSMST> 
000 : 
FFFFFFBO 000 CDRPSL_MSGBUFX = CDRPSL_AST 
FFFFFFB4 000 CDRP$L_BUFLEN = CDRPSL_ASTPRM 
eereres 000 CORPSL_BUFADR = CDRPS$L_WIN 
FFFFFFC2 000 CDRPS$B_SHDW_CNT = CDRPS$B_EFN 
FFFFFFC4 0 CORPSL_ = CDRPSL_1I0S 
FFFFFFD6 O CORPSW_STATE = CDRPSL_BCNT+4 
FFFFFFE8 0 CDRP$SL_UQB_FL = CDRPS$L_SEGVBN 
FFFFFFEC 0O CORPSL_UQB_BL = CORPS$L_D1IAGBUF 
FFFFFFF4 0 CORPSL_CMD-STS = CDRPSL_EXTEN 
FFFFFFF8 0 CORP$W_SLO = CDRP$L ARB 
FFFFFFFA 0 CORPS$B_FLAGS = pe 
FFFFFFFB S CDRP$B_OPCODE = CDRPSL_ARB+ 
0 
0 
0 
0 


SOOO OCOOOOOOOOO OOOO SSS OCOCOCSOSCSOCOSOSOSOOCOOOOOOOOOOOOOOOCOOOO 
FP PWANWIA AAAI WIGMTINIPININININININIDND 4 I OS | SS DQOCODOCOOOCCOWOOOOOOOOOOMWMWwo 
MOOD NOUES WIN OOD NAVE WIN SO OD NAUE WN OOD NAU SWRI 0 OONOAUE WWI OOONIO 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
; 
00000048 000 CORPS$L_LBN = CDRPS$K_CD_LEN 
0000004 0 CORPS$L_SHDW_LNK = CORPSL_LBA+4 
0000005 0 CORPSL_FPCX = CORPSL_SHDW_LNK+4 
0000054 CORPSL_FR3X = CORPSE FO EAt? 
0000958 CORPSL_FR4 = CORPSL_FR3X+4 
aia $45 0 CORPSL_SAVD_RTX = CDRPSL_FR4X+4 
00000060 000 CDRPS$L_COT = CDRPSL-SAVD_RTX+4 
000 . CORPSL_XCT_LENX = CDRPSL_CDTX#4 
0 CORP$B_LBU = CDRPSL_XCT_LENX+4 
0000074 0 CORPSL_STRT_UQB = CDRP$B_LBUFF +12 
0000078 CORPSL_MST_0QB = CDRPS$L_STRT_UQB+4 
B08 43 P$L_HOQB = CORPSL_MST OQB+4 
000000E 0 BIG_CORP = <CDRPSL_HQB+4>=CDRPSL_IOQFL 
00000 2 IRP$B_SHDW_CNT = CORP$B_SHDW_CNT-CDRPSL_IOQFL 
0000024 RP$L_UQ = CDRPS$L_UQB-CORPSL_IOQFC 
0000036 4 IRP$W_STATE = CDRPSW_STATE-CDRPSL_IOQFL 


' 
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MSCP - MSCP Server - Emulator 16-SEP-1984 
v04-001 DECLARATIONS eae 4 
0000 28 43 IRP$W_SLO = CDRP$ 
Bo A 44 IRPS$B- “thes = CORPS$B- 
00000A8 45 IRPS$L_LBN = CORPS 
ait 46 IRPSL_ SHOW. LNK = CORPS 
0000008 $ 4 IRPSL_F = CORPS 
00000084 00 48 erste “RAINCORP 2 CORPS 
00000088 38 49 IR = CDRPSL_ 
p88 29 ASS SURE CIAPSL.. FR4X+4> LE IRPSC_ 
BO 0 00000 0900 26 CDRPSV_SLAVE = 0 
0000000 000 5 CORPS$V_BUFFER = 1 
4 54; CORPSV_ = ¢ 
00 22 § DR = 
00000004 0000 56 CDRP$V- ABORT s 4 
00000005 44 af CDRPSV_NOHSTBUF = 5 
00000000 44 59 CORPSK_ST_MEM_WAIT = 0 
00000001 0000 60 RPSK_ST_MAP WAIT = 1 
si 4 4 0000 61 CORPSK_ST_DRVRD WAIT = ¢ 
00000003 0000 6 CDORPSK_ST_DATA_QAIT = 
00000004 8808 6 CDORPSK_ST_DRVWRT_WAIT = 4 
00000005 0000 64 CDRPSK_ST_MSG_WATT = 5 
00000006 0000 65 DRPSK_ST_SHQ_QUE = 6 
00000007 0000 66 CDRPSK_ST_BLK_QUE = 7 
00000008 0000 67 CORPS$SK_ST_ONBCK QUE = 8 
00000009 0000 68 CDRPSK_ST_MSG1 QAIT zs 9 
0000003F 0000 69 CDRPSK_ST_INVACID = 63 
0000 270 
0000 271 : 
0000 sie i 3; EXTERNAL SYMBOLS: 
0000 75; 
0000 274 
0000 275 CROSS 
0000 276 -DEFAULT DISPLACEMENT WORD 
0000 277 


NGTH 


This is a 
This CDRP has a buffer 


Th 
Th 
Bu 
SC 
Disk re 


700: 33 AX/VMS Macro 
214:0 MSCP.SRCJMSCP.MAR; 
0 


4X-CORPSL_ IOQFL 


slave IRP 


CDRP has been aborted 
CDRP has no host buffer 


is 
is 
ffer memory wait 
S mapping resource wait 


ait 
scs data transfer wait 


Disk write wait 


Response message credit wait 

precios holding 
Blocked queue wa 

Online-copy blocked queue 

Attention message credit/buffer wait 


Invalid state 


qt wait 


FFFFFFFF FRRFFFFF 


- MSCP Server = Emulator 
COMMUNICATIONS AREA 
8 4 » SBTTL 
0000 8 1 »PSECT 
§ MSCP_BEGIN: 
8 : MSCP_COMM_AREA: 
00000001 8 § PRMSW 
838 8 SLVTAB 
00 9 
8° 90 
0 91 
0024 35 
0024 9 LOADVEC 
0024 94 
0024 95 
00000000 002D 96 
88 D 97 
FFFFFFFF 02D 98 ~ LONG 
0039 99 
0039 00 . ALIGN 
0040 01 
00000040 0040 308 -=MSCP_ 
0040 03 STATE: 
00000000 0040 04 LONG 
0044 05 
00000044 0044 06 -=MSCP_ 
0000 0044 07 PACKET: .WORD 
0046 08 
00000046 0046 09 -=MSCP_ 
0046 10 INI_PKT: 
0000 004 11 WORD 
004 \ 
00000048 004 1 -=MSCP_ 
0048 314 NUM_PKT: 
0000 0048 15 WORD 
O4A 16 
0000004A 004A 17 -=MSCP_ 
04A 318 MAX_PKT: 
0000 004A 19 WORD 
04C 0 
0000004C 004C 1 -=MSCP_ 
4C $ INI_HOST: 
0000 rt ? WORD 
0000004E 4E 5 -=MSCP_ 
4E § NUM_HOST: 
0000 rt] WORD 
00000050 5 -=MSCP_ 
5 Q BUFF _HEAD: 
00000000 22 1 LONG 
00000054 54 : -=MSCP_ 
? 4 MAX_BUF : 
00000000 4 5 LONG 


SrSEp=1984 19:14:02 EAScPsSRCIASEPL RAR: 


COMMUNICATIONS AREA 
ASCPSCODE , PAGE 


QUAD 
COMM_AREA+MSUSL_STATE 
0 

+ Wechipaatiannes teens 


COMM_AREA+MSUSW_INI_PKT 


3; Number of allocated (freet+in-use) packets 


0 
COMM_AREA+MSUSW_NUM_PKT 
0 
COMM_AREA+MSUSW_MAX_PKT 
0 
COMM_AREA+MSUSW_INI_HOST 
0 
COMM_AREA+MSUSW_NUM_HOST 
0 
COMM_AREA+MSUSL_BUFF _HEAD 
0 
COMM_AREA+MSUSL_MAX_BUF 
0 


; Number of free packets 


; Maximum number of packets to cache 


} 
Lee. 
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v04=001 COMMUNICATIONS AREA Seep ions $o:4e302 EMCO eRe sae cP aaa pat 
00000058 f : ion .=MSCP_COMM_AREA+MSUSL_ SMALL 
00000000 5 33 «LONG 0 
0000005¢ ¢ 343 -=MSCP_COMM_AREA+MSUSL_FRACTION 
5C ¢ FRACTION: 
00000000 é5 $7 -LONG 0 
00000060 006 45 .=MSCP_COMM_AREA+MSUSW_NUM_QUE 
8 ‘3 NUM_QUE : 
0000 38 rt «WORD 0 
00000062 006 49 .=MSCP_COMM_AREA+MSUSW_MAX_QUE 
06 50 MAX_QUE: 
0000 006 51 . WORD 6 
00000000 oe) 26 . LONG 3; Reserved 
00000068 068 54 .=MSCP_COMM_AREA*MSUSL_CDSV_SIZE 
06 55 CDSV_SIZE: 
00000000 S208 2$ -LONG 0 
0000006c 006C 358 .=MSCP_COMM_AREA+MSUSL_CDRP_SAVE 
006C 59 CDRP_SAVE: 
00000000 Boek 99 -LONG 0 
00000070 0070 369 -=MSCP_COMM_AREA+MSUSL_CDRP_LIST 
0070 63 QUEUES: QUE_HEAD CORP_LIST 
00000078 0078 308 -=MSCP_COMM_AREA+MSUSL_MEM_WAIT 
0078 65 QUE_HEAD MER _W 
00000080 0080 66 -=MSCP_COMM_AREA+MSUSL_UQB_LIST 
0080 67 QUE _HEAD uQB LIST 
00000003 0088 68 QUE_NUM = <7-QUEUES> 
0088 +4 ASSUME MSUSC_NUMQUE EQ QUE_NUM 
00000088 See 71 »=MSCP_COMM_AREA*MSUSL_HOST_DSBL 
0088 rg HOST_DSBL: 
00000000 Ope a -LONG 0 
ooo0000sc  008C 375 .=MSCP_COMM_AREA+MSUSL_UNIT_VEC-4 
00000000 008C 76 -LONG 0 3 **® ENTRY FOR UNIT # =-1 !!!!! 
090 77 UNIT_VEC: 
00000110 9090 28 -BLKL 2*MSUSK_MAX_UNIT 
00000110 011 - =MSCP_COMM_AREA+MSUSL_HOST_VEC 
11 1 HOST_VEC: 
00000190 13 $ -BLKL 2*MSUSK_MAX_HOST 
00000190 019 4 -=MSCP_COMM_AREA+MSUSQ_CTRL_ID 
19 5 CTRL_ID: 
0000: 19 $ LONG ; Controller id 
0000 0194 - WORD 
4 136 8 -BYTE MSCPSK_CM_EMULA 
1 19 ; “BYTE MSCPSKTCL-CNTRL 
00000198 138 91 .=MSCP_COMM_AREA+*MSUSQ_CTRL_INFO 
19 92 CTRL_INFO: 


- MSCP Server - akayletor 16-SEP-1984 02:00:5 AX/VMS M v04-0 
COMMUNICATIONS AREA iets Pi 96:00:33 Umscp P.SRC MSCP_MAR: 
1 93 VERSION: 
9000 138 94 -WORD 0 i. VERSION 
004 OQO19A 95 ~WORD <MSCPSM_CF_REPLC!= ; controller FF 
19¢ 36 - ; disable advertisement of shadowing MSCPSM_CF_SHADW!- 
19¢ 9 MSCPSM_CF_MLTH S> 
FFFF Q19C¢ 38 «WORD <1 ; Controller timeout 
0000 185 4 -WORD 0 : Reserved 
000001A0 OTA 401 CTRL DAT NSCP=COMM_AREAPHSUSB_CTRL_DAT 
00000000 00000000 O1A0 4 § -"" {QUAD : 
00000000 00000000 iA : ¢ QUAD 
00000180 18 108 ove cont ee 
00000280 180 408 - —£BLKL 64 
00000280 iH rth ms tou “e =MSCP_COMM_AREA+*MSUSL_BLKCOUNT 
00000484 0280 zig - -BLKL = 129 3; Statistics for block sizes 
00000484 O4B4 aig WOBL 1$1:77MSCP=COMM_AREA*MSUSO_HOBLIST 
0000048C 04B4 aig “,BLKQ 1 ; List of allocated HOB's 
000004¢C¢ o4B¢ 418 .=MSCP_COMM_AREA+MSUSK_LENGTH 
O4CC 420 BUFF_LENGTH: 
00000400 beck ? 1 mee seek 1 ; Length of allocated buffer 
00000404 pe00 $ 5 ie en 1 ; Address of allocated buffer 
00000408 bebe 425 tet 1 ; Length+Address 
04D8 426 I0_PRI 
00000409 0408 427 1 
0409 428 
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«SSTTL MSU ACTION ROUTINES 


+ 


; These routines are called by the MSU proses to carry out actions 
; that must be done from high IPL code that Lives in non-paged pool. 


: Inputs: 
AP --> #arguments 
action code 
parameter (s) 
Outputs: 


RO = status code 


ASSUME MSUSK_AC_STRT 
ASSUME MSUSK-AC“STOP 


MSUSK~AC_REM 
ASSUME MSUSK-AC~DISC 


-ENABLE LSB 
MSCP_START: 


CASE 4(AP) ,LIMIT=41, TYPE=B- 
<START,=- Startup 

Stop 

Add a unit 

Remove a unit 
Disconnect a host 


ADD,- 
REMOVE ,- 

DISCON> 

MOVZWL #SS$_BADPARAM, RO 
RSB 


Sete De Ge te 


Command out of range 
108: Leave 


: START the server 


START: MOVZWL #SS$_ILLSEQOP,RO Set an error code 
BBSS #MSUSV_START,= ; Check if already started 


A 
BRwW START_CONT ; Do it 
DISABLE LSB 


: ADD a disk unit 

: -ENABLE LSB 

10$:  MOVL #1,RO 
RSB 
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- . we one 487 ADD: BBC #MSUSV_START,= ; Leave if not started yet 
fg FB30 CF 2 4 3 STATE, 10$ 
5 08 AC 00 2 4 : 3 MOVL B(AP) ,R2 ; Transfer UQB address 
5 491 -DISABLE LSB 
5 $36 
s 493 SEND_ATTIN: 
7E 56 7d Q5 494 mMOVQ R6,-(SP) 3 Unit counter 
2$ 1F 2 50B 495 MOVL #<MSUSK_MAX_HOST*2>-1,R6 ; Largest host slot index 
5 52 OD 50E 136 MOVL 2,R ; UQB address 
53 FBFA CF46 DO 0511 497 108: MOVE HOST_VECCR6I,R3 : Obtain the HOB pointer 
ee 1 517 +38 BEQL 0 ; None, skip on 
171D 383 519 49 BSBW GET gieuct 3; Allocate a packet 
1F 29 E9 051C 500 BLBC RO, 30$ ; Branch on failure 
7C AS) 5 dO baie 204 MOVL R3,CORPSL an ; Store HQB address 
2c As) BS C0523 0¢ INCW HQBSW_REFC(R3) : Up HQB reference count 
C4 AS) 57) =©—00 =6(0526~—S (50 MOVL 7,CORP$L_UQB(R5) 3; Address of UQB 
0 a3 D4 052A 204 CLRL  CDRPSL_RSPID(RS) ; Never send w/RSPID 
54 14 A DO 052d 05 MOVL HOBSL_COT(R3) ,R4 3; Pick up CDT 
2405 54 00 0531 506 MOVE R4,CDORPSL_CDT(R5) : Set into CDRP 
54 10 A4 DO 0535 507 MOVE COT$L_PDTTR4) ,R4 ; Now grab the PDT address 
07 10 0539 508 BSBB 40$ 3; Set up to return synchronously 
D3 56 «6 F4 «C0538 = «5509 gps: SOBGEQ R6,10$ ; Iterate over all units 
56 BE 7D O53E 510 30$:  MOVQ  (SP)+,R6 : Restore registers 
05 bees 23 RSB 
D6 AS 09 #=«~B0 033 218 40$: MOVW 4CDORPSK_ST_MSG1_WAIT, - ; Tag this state 
054 ele CORPSW_STATE(RS) 
0546 15 ALLOC_MSG Bur ; Allocate a message buffer 
Be D4 0549 i$ CLRL (R2)+ : No command ref number on attn msg 
53 C4 A 0 0548 1 MOVL CORPS$L_UQB(R5) ,R3 3; Pick up unit block 
82 28 AS C b2ee 518 MOVZWL UQB$W_ONIT(R3),(R2)+ 3 Copy unit number 
82 40 8F 9A 233 519 MOVZBL #64,(R2)+ : Set the attn asp code 
82 10 A3 00 0557 520 MOVL vagéi MULT. NT(R3),(R2)4: Set mulit_unit © unit_flags 
8 4 Beae 521 CLRL (R2)+ 3: Reserved field 
82 118A D 0550 5 g mova UQB$SQ_UNIT_ID(R3),(R2)+ ; Copy unit identifier 
62 20 A3 DO 0561 MOVL  UQBSL~MEDIA_ID(R35,(R2) : Copy media identifier 
51 20 bdO 0565 4 MOVL #32,R 3; Size 
0568 5 SEND_CNT_MSG_BUF : Send it out 
34 5 § ATTN_CLEANUP: 
53 7C AS 0bO 0568 5 MOVL CORPSL_HQB(R5) ,R3 ; HQB address 
2c A3 8 b26e 3 DECW HOBSW_REFC(R3) 
1723 1 2f ; BRW FREE_STRUCT ; Release data structure 
57 1 ; REMOVE a disk unit 
57 ¢ 3 
57 
05 57 4 REMOVE: RSB 
576 5 
576 § 3 
576 3; DISCONNECT a host 
are B36 
53 OB A 00 378 40 DISCON: MOVL 8( AP) ,R3 : Pick up COT 
54 10 A 57A 41 MOVL COT$L_PDT(R3),R4 ; Pick up POT 
00F? 57E $5 BSBW VC_ERR : Do the disconnect 
50 D 581 4 MOVL #1,R0 ; Always success 
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ouTiNe "GrSEp=1986 9:44: 


-SBTTL LISTEN ACTION ROUTINE 


as a fork process init 
connector is the class driver, we 


nS -=> connect message 
: non oe 1 oF Listen 


LIS_FORK: 


EXTZV 
Hite RSTATION(R3) ,R1 
BBC R1,HOST_DSBL,20$ : 
10$: REJECT #1 ; 


20$:  TSTW NUM_HOST 


BEQL 3 
CMPB sR}, #MSUSK_MAX_HOST : 
BGEQU : 
TSTL HOST_VECCR1) : 
BEQL 50$ ~ 3 
30$: MOVL #MSUSK MAX fost. R1 ; 
40$: rst HOST_VECC ; 
AOBLSS #MSUSK_MAX_HOST*2,R1 408; 
BRB 10$ 
50$: PUSHL 1 ; 
PUSHL R3 
MOVZWL #HoBsc LEN, R1 : 
BSBW OMER 
POPL age 
BLBS  R0,60$ ; 
TSTL (SB) : 
BRB : 


ASSUME HQBS$B_FLAG EQ HOS _ 


60$: CVTLW (SP)+,HQB$B_VEC(R2)~ 
R2 ¥ 


MOVW mi (hae SCS_HQBa8>!- 
DYNSC_SCS,TR2)+ 


: ACCEPT the connection and que up the HOB 


PR RADRAVC ERR,- : 


MINSCR 
CONDATZCTAL_DAT,- 


‘ ~~ one 


33 tA Becta v04-0 Page 
MSCP.SRCJMSCP.MAR; 


When someone wants to gonnect with us, control will come here 
ated by the port driver at IPL 8. If the 
will accept i otherwise we will 
reject the connection. Upon a successful acceptance, allocate a 
host control block and wait for a message. 


; Pick up low 4 bits of node 


Have we disabled this host? 
Yes, don't connect 
Return to Port Driver 


; Any host space left? 


No, reject this connect 


; Is it a funny one? 


Yes, bri ng it in line 
ere now? 
No, Okay to use 


; Starting place for search 


ae one there now? 
as again 

No room, reject the connect 
Save vector 


Size needed 


3; Grab some pool 


ALL set 
Clean stack 
Reject the connect 


Set the vector number & clear flag 
: Transfer address 
; Clean out trash 


; Set length 


; Set type 


; Message input addr 
DG input 


Error address 


; Initial credit 


send credit 


; Minimum 
; CONNECT /ACCEPT "lets 
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vor 1 CISTEN aati ROUTING MO a1 Oke 96:00:33 MSCP.SRCIJMSCP.MAR; (1) 
eres 561 3 , ‘ SDEALRO ; bus ti tery structure 
mE ? ¢ ie Q FLINK(RS) ,HQBLIST ; Link to List of allocated HQB's 
ego t BER BM fit popye 
CL 
. : o19 é 3 : ASSUME HQBSL_CDT EQ 20 » heme the OT edtrens 
™ 33 14 8} 0 CCR aie : Clear more flags 
” eit ei ASSUME pit + hts Shanta EQ 28 
07 Re e 3 $18 sais *POTSB=PDE _TYPE(RA) : js it the passthru driver? 
§ ) 3 18 AOve #1 ,HOBSB_FLAG(RS) ; Yes, set flag 
“songs BAS B4 0628 616 70$:  CLRW HOQBSW_NUM_QUE(RS) 
ah 0; BO beSe 7 nove WienaBSe Reve cae) ; Reference count = 1 for CDT 
85 wer RS 4 ¢ : 818 MOVAB 4HQB$Q_PENDING(RS) ,RO ; on Rag a. ae 
$3 Bo a0 ¢ § 3 ; MOVAL RRO). CRO) : Initialize back pointer 
x alt i *A 6 6 3 5 mOveee Ro npsT veceRt a ; Save the host block address 
sat EE - be 3 tar m_HOST ; Drop number of hosts left 
mS) Gea 18 gi 
50 55 00 becg 3 7 DEALRO: MOVL R5,R0 3; Set up pointer 
00000000'9F 17 Oece 3 § DEALMEM: JMP @#E XESDEANONPAGED ; Get rid of HQB and return 
bese | ay 3; Get memory 
00000000 ' 9F 17 Os5A es ALLOMEM: JMP @#E XESALONONPAGED 
65A 633 : Error 
O6eA 3 ¢ bG_ERR: BUG_CHECK MSCPSERV, FATAL ; ERROR 
53 1CEB°CF DO es a STOP: MOVL LIS_CDT, R3 ; Pick up the Listen cdt 
a66s ; Do a disconnect 
639 LIS_ERR:DISCONNECT : 
05 ae e409 RSBX: RSB ; Return 
ee 642 DISABLE Lsb 
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v04-001 VIRTUAL CIRCUIT ERROR ROUTINE ete 4 6: 9:33 EmscP src MSCP.MAR; ’ (1 
O64 ets -SBTTL VIRTUAL CIRCUIT ERROR ROUTINE 
66A rk FRA AAAAA AEE RAE AERA EAE AEAAEAAAAARAEEERAEERAREREAAEARAAEAAEEEAEREEEAETEEEE 
66A 647 ; * 
66A 978 3 - 
66A 649 ; DISCONNECT A VIRTUAL CIRCUIT * 
AE 
3 *® 
Been $36 FERRARA AAA AA AA AREER AAA EREEAERER EER AAEERAEAAEAEAAREAAEEEREAEEEEEE 
66A 6535; 
ee O28 ; Return all data structures for this host and break link 
66A 686 : R3 = COT addr 
066A 657; R4 = PDT addr 
066A 658 ; 
66A 659 
66A 660 ENABLE LSB 
066A 661 
066A 662 VC_ERR: 
OFD8 8F BB O66A 66 PUSHR #*M<R3,R4,R6,R7,R8,R9I,R1IO,R11> ; Save registers 
58 SC AS) DO 066E 664 MOVL § CDT$L_AUXSTRUC(R3).R8 ; Pick up HB 
28 As 8 067 665 TSTW HOBSW_NUM_QUE (R8) ; Are there any CDRP's outstanding? 
19 13 067 666 BEQL 30$ 3 No, leave now 
59 01 D0 0677 667 MOVL #1,R9 : Init iteration counter 
SA 4 CE 067A 668 10$ MNEGL #1,R10 3; Yes, Start at unit 0 
A 06 067D 669 20$: INCL e :; Next bit position 
51 iF 9A O67F 670 MOVZBL #<2*MSUSK_MAX_UNIT>-1,R1; Max bit size 
51 SA C2 bene 671 SUBL R10,R1 3; Number Left 
SA 10 A8 51 £=5SA EA 068 ore FFS R10,R1,- 
0688 67 HQBS$L_UNIT_ONLN(R8),R10; Find any units online 
06 12 0688 674 BNEQ 0$ ; Got one 
EA 59 FG be8p 675 SOBGEQ R9,10$ 3; Finished? 
010c~—O «O31 +84 676 30$: BRW F IN_HQB ; Yes, leave now 
069 678 ; Now run thru the queues on the UQB to find all CDRP's. NOTE: The order 
be8 ths : in which queues are accessed is important and should not be changed. 
5B 4FOFB CF4A DO 069 rat 40$: MOVL UNIT_VECCR10],R11 ; Get unit que block 
E2 13 0699 ons BEQ $ 3; None 
56 70 9E 0698 68 MOVAB QB$Q_SHQ(R11),R6 3; Point to special holding quehead 
1 10 O69F 684 B : Do the wor 
56 68 AB 3 06A1 685 MOVAB QB$Q_BLOCKQ(R11),R6 ; Point to blocked quehead 
OD 1 6A5 686 8 : Do the work 
50 AB 83 6A7 ret TSTwW QBSW_NUM_QUE (R11) 3; Any CDORP's queued? 
D1 6AA 688 BEQL 3 No 
56 60 AB 3 O6AC 689 MOVAB ¥peee. CORP FLATT) Re 3; Point to quehead 
02 1 re] 690 BSBB 0$ : Do the work 
co =o ry o3) 20 3 Try for another unit 
4 $3? ; Subroutine to scan queue and dispatch to appropriate code. 
57 $6 DO 0684 695 50$:  MOVL (R6),R7 : Get first entry 
56 D1 0687 696 60S: CMPL R7 RE ; Is there any more? 
A 13 QO6BA 69 BEQL RSBX 3; No 
55 118A 43 6BC 698 MOVAL CEPR ap COO FL CR) ORS ; Cover the CDRP portion : 
57 67 OD oc 99 MOVL (R7),R ; Get next entry (later REMQUE zeros flink) 
14 AB ODT 6c 00 CMPL HQBSL_CDT(R8),- :; Belong to this host? 
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v04-001 VIRTUAL CIRCUIT ERROR ROUTINE orSEp 19 4 96: $33 EMSCP. SRC MSCP.MAR; ’ (9) 
60 AS 6C 701 DRPSL_CDTX(R5) 
ED 12 ote § BNEQ 668 . ; No 
6CA 704 ; Dispatch on the state value. This is changed each time the CDRP goes 
ay 5 ; thru a particular routine. Each state may need different treatment. 
88 O6CA 7 S BISB #1aCDRPSV_ABORT ,- ; Set ‘ABORTED’ bit 
FA A 6CC 708 CORPSB FCAGS(RS) 
53 14 A8 00 ore 709 MOVL pte COT (RB) RS ; Pick up the cdt address in r3 
50 D6 AS 9A 0602 710 MOVZBL CDRPS$@_STATE(AS) ,RO ; Pick up state 
606 711 CASE RO,- 
606 ar <Sf_MEM_WAIT,- ; Q-Menory wait 
606 71 ST_MAP_WAIT,=- ; 1-MAP resource wait 
06D6 714 ST_DRV_WAIT,=- ; g pr iver que wait 
0606 715 ST_DRV_WAIT,=- 3 5-DATA command wait 
0606 716 ST_DRV_WAIT,=- ; 4-Driver que wait 
0606 717 ST_MSG_WAIT,= ; 5-MSG send wait 
0606 718 ST_SHQ_QUE,=- $ ecseec ret holding que 
0606 719 ST_BLK_QUE,- ; ?-Blocked que 
pepe £60 ST-ONBCK _QUE> 3 8-Online-copy Blocked que 
+434 rs¢ BUG_CHECK MSCPSERV,FATAL ; ERROR 
Bee? Hs 65$: BUG_CHECK MSCPSERV,FATAL ; ERROR == connection / CDT mismatch 
O6F4 726; 
O6F4 727 ; Driver wait: The CDRP has been delivered to the disk driver and is 
O6F4 728 ; awaiting completion. It has a mapping resource, a buffer, and a 
O6F4 729 ; message buffer. 
O6F4 730; 
06F4 731 ST_DRV_WAIT: 
co 5 E8 O6F4 ia¢ BLBS R9,60$ : Skip first time 
52 BOAS DO O6F7 73 MOVL CORPSL_MSGBUFX(R5),R2 ; Pick up message buffer 
FB A2 IBA D1 O6FB 734 CMPL CDTSL_CCONID(R3), = 3 Check validity of remote conid 
0700 735 SCS$L_DST_CONID(R2) : 
EE 12 0700 736 BNEQ 65$ 3 Trying to respond to stale connection 
BO AS 4 Ore 737 CLRL CDRPSL_MSGBUF X(R5) ; Show it gone 
070 738 DEALLOC _A36 BUF _REG ; Deallocate it 
D6 AS) 6(03)C—tsé*#B“SCT babe 739 CMPW #3 CORPSW_STATE(RS) : Is it data wait? | 
A912 070C 740 60$ : No, allow it to finish 
OPE P42 
B FOE 28 3; Send/Request data wait: The CDRP is somewhere in the process of doing 
AN: 744 ; a send/request data operation. It has a mapping resource, a buffer, and 
f ; 7 3 possibly a RSPID and a message buffer. 
soe 29 ST_DAT_WAIT: 
20 AS 8 A 748 TSTL CORPSL RSPIO(RS) 3; No, if there is a RSPID 
06 1 71 749 3 ee then 
713 £39 DEALLOC_RSPID ; Deallocate it 
1C AS rf 719 += 751 «708: TSTL DRPSL_MSG_BUF (R5) ; If there is something 
0; (1 71C O36 BEQL 3 ee then 
at Pe? 80s DEALLOC_MSG_BUF ; Deallocate the message buffer 
721 fag ; 7272 Crock that assumes that this field is initialized! 
50 65 D0 0721 £36 M PSL_FQFL(R5S) RO ; Get possible next element 
724 75 ASSUME CDRPSL-FQFL EQ 6 
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55 O4A D 724 «675 CMPL 4(RO),R5 3; Is this block queued to anything? 
03 ty Oh5a | $88 BNE t No . eb: 
50 6 OF f 5 roy *7 € acnaue CORPSL_FQFL(R5) ,RO ; Remove from wait que 
; 22? End croc 
5 ps 70D £66 $0$: — CLRL ; Set for failure 
7E D O72F 76 MOVQ R3,-(SP) 3: Save CDT,PDT 
0c 85 8616 «(07 é 764 JSB @CORPSL_FPC(RS) : Finish it off 
53 ge 7D 07 765 MOVa ($P)+,R3 ; Restore 
FF7C }8=6—31 (0738 £06 BRW ; Loop for next CORP 
et 
oF 8 189 3; Memory wait: The CORP is waiting for a data buffer. It has no resources 
Bf . age 3 and can be immediately cleaned up after being dequeued from memory wait. 
0738 ire ST_MEM_WAIT: 
F921 CF B87 O73B 77 DECW NUM_QUE 
O73F 774 
Bret 775 3 
O73F 776; pte wait: The CDRP is on a credit wait queue from a RECYCL_MSG_BUF 
O73F 777 ; operation. It has a buffer and a message buffer. It can be dequeued 
O73F 778 ; from the credt wait queue. 
O73F 779; 
073F 780 ST_MSG_WAIT: 
O73F 781 
073F ree 3 . ’ 
073F 783 ; Map wait: The CORP is waiting for mapping resources. It has a data 
O73F #784 ; buffer resource only. It can be immediately cleaned up after being dequeued 
O73F 785 ; from the map wait queue. 
O73F 786 ; 
073F 187 $T_MAP_WAIT: 
50 65 OF O73F 788 REMQUE CDRPSL_FQFL(R5S),RO 3; Remove from wait que 
2D 11 0742 789 BRB 150$ : and finish off 
0744 790 
0744 791; 4 
0744 a 3; Special holding que: The CDRP is wert ine for CIP. It has no resources 
0744 793 ; and can be immediately cleaned up after being dequeued. 
0744 794 ; 
0744 795 §T_SHQ_QUE: 
50 E€8 AS OF O744 796 REMQUE CDRPSL_UQB_FL(R5),RO ; Remove from special holding que 
04 12 0748 797 BNEQ 100$ ; Not the last entry , 
08 8A O74A 798 BICB #UQBSM_CMDPEND,- : Clear the command pending status 
2B AB 074C 799 UQB$B-FLAGS (R11) 
60 D4 074 800 100$: CLRL (RO) ; Show not queued 
28 Soi bre 4 BRB 155$ ; Done 
O78 88 
Boe 04 ; Blocked que: The CDRP is blocked, It has a message buffer and possibly 
f be 3 a buffer. It can be immediately cleaned up after being dequeued. 
75 09 §T_BLK_QUE: 
71°AF 8 9F 075 08 PUSHAB B*150$ : Set return address 
7C “0 7 075 09 120$: DECW UQB$W_NUM_BLK(R11) :; Drop the blocked count 
50 EBA F 0758 10 REMQUE CORPSC_UQB_FL (RS) .RO ; Remove from blocked queue 
6% 12 075C¢ 11 BNEQ 130$ ; Not the Last entry 
2 8A 075 1% BICB #UQBSM_BLOCKED,- : None left, clear flag 
28 AB 76 1 UQB$B-FLAGS (R11) 
6 D4 076 14 130$: CLRL (RO) ; Clear Link | 
i 
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05 0764 15 RSB ; Leave now 
783 3 
76 18 ; Online-copy blocked que: The CDRP is blocked. It has no resources 
BF 82 Bi8 ; and can be immediately cleaned up after being dequeued. 
765 8 1 §T_ONBLK_QUE: 
30 59 +E8 0765 ¢ BLBS R9,160$ ; If second time, then 
EB 10 0768 BSBB.Otié«d 208 ; clean up 
53 10A5 7D Bren 4 MOVQ CORPSL_FR3(R5),R3 ; Pick up registers 
0B1B 30 bret : ; BSBW CLEAN_OP_ONLCPY : Do the special clean up 
771 ; 
144 3 ; Clean up the CORP and deallocate resources. 
09 FB AS 91 0771 830 1508:  cCMPB CORP$B_OPCODE(R5), - : If non-sequential command 
0775 = 831 #MSCPSK_OP_ONLIN 
03 1B 0775 o36 BLEQU§ 155$ ; then 
0777 =—s 83 UNMAP ; Get rid of possible map resource 
52 BOAS DO O77A 834 155$: MOVL CORPSL_MSGBUFX(R5),R2 ; Pick up message buffer 
Ob 13 O77E 835 BEQL 157$ ; Just in case! ; 
FB A2 18 AS D1 0780 836 CMPL CDT$SL_LCONID(R3), - ; Check validity of remote conid 
0785 837 SCS$L_DST_CONID(R2) 
14 12 0785 838 NEQ 165$ : trying to respond to stale connection 
BO AS D4 0787 839 LRL CORPS$L_MSGBUF X(R5) : Show 1t gone 
078A 840 DEALLOC_MSG BUF REG ; Deallocate it 
53 58 DO O78D 841 157$: MOVL R&,R ; Set HQB address 
54 DD 0790 Ha) PUSHL R4& ; Save PDT 
O33F 30 145: 84 BSBW SEND_PKT ; Clean up the packet 
54 8ED0 079 844 POPL R4 3; Restore PDT 
FFIC 831 {4d St? 160$: BRW 60$ 3; Continue 
0798 847 165$: BUG_CHECK MSCPSERV,FATAL 3; ERROR 
O79F 848 
O79F 849 -DISABLE LSB 
O79F 850 ; ‘ 
1444 He ; Clean up of CDRP’s all done. Now finish up UNIT and HOST blocks. 
O79F 388 FIN_HQB: 
5A 01 CE OQO79F 854 MNEGL #1,R10 ; Yes, Start at unit 0 
53 58 = Bra 855 10$: MOVL RB RS ; Transfer HQB address 
5A D6 O7A $28 INCL R1 ; Next bit position 
51 1F QA O7A7 85 MOVZBL #<2*MSUSK_MAX_UNIT>-1,R1; Max bit size 
51 _ C2 O7AA $28 SUBL R10,R1 ; Number Left 
5A 10 AB sS1 A EA O7A 5 FFS R10,R1,- . 
7B 60 HOBSL_UNIT_ONLN(R8),R10; Find any units online 
32. 13 «+076 61 BEQL 3; No units alive 
54 FB8D6 CF4A D0 O78 6 MOVL BLT MECER TODAS ; Get unit que block 
05 12 0788 6 BNEQ 0$ ; Got one 
£0 10 AS SA €E4& OQ7B 64 BBSC R10,- ; Clear the bogus bit 
7¢ 65 HOBSL_UNIT_ONLN(R3),10$ 
1474 30 O7C 06 20$: BSBW GET_STRUCT ; Get data structure 
0450 €8 Q7C 6 BLBS RO, 308 ; Branch on success 
pce 6 BUG_CHECK MSCPSERV,FATAL ; It failed 
7C AS) =6553—Sis«éi rte % 30$: MOVL R3,CORPSL pag cas) ; Address of HOB 
2C AS) =©B6 07D 71 INCU HOBSW_REFC(R ) ; Upreference count 


- MSCP Server = Emulator 1§- SEP- ~138¢ 96: 9:33 eal Macro V04-0 Page 19 
VIRTUAL CIRCUIT ERROR ROUTINE -SEP-1984 214: MSCP.SRCJMSCP.MAR; (1) 
D4 0703 7 CLRL CORPSL_MSGBUF X(R5) ; Prevent spurious unloads 
FB AS 5A 4h 706 5 MOVL R10 CDRPSu SLOT CRS) ; Clean out’ flags and others 
90 O7DA 874 MOVE #MSCPSK_OP“AVAIL,- : Set the command 
FB A 70C = 875 CDRPS$B-OPCODE (RS) 
78 AS 54 bf 7D 1g MOVL R4, CORPSL_MST_UQB(RS) ; Needed by routine 
03  O7E 7 BSBW sed : Go do the AVAIL 
11. O7E 78 BRB 10$ ; Loop until done 
7E7 79 
7E7 44 40$: 
7E7 1 5 27? ~ bug tag ions coer. yore to find Live references to the now stale CDT 
53. 14 a D0 O7E7 S¢ HQBSL_CDT(R ; CDT to look up 
8 10 A 4 pree 4 MOVE cole grOriR % Ri ; PDT address 
0 OF' — O7EF 4 MOVAB 86*10 3; Action routine 
00000000: bf 16 O7F3 885 JSB G*S SSCRP. RDTCDRP ; Look for matching CDRPs on RDT 
50 OF' 9E O7F9 886 MOVAB ; Action routin 
00000000' GE 16 4a 887 JSB G*SCS$LKP_RDTWAIT ; Look for matching CDRPs on RSPID wait queu_ 
50 OF'AF 9€ 080 888 MOVAB ~*~ ’ 3; Action routin 
00000000'GF 16 0807 889 JSB8 G*SCSSLKP_MSGWAIT 3; Look for matching CORPs on message send qu 
06 = «171 tied 44 BRB 110$ 
et £36 100$: BUG_CHECK MSCPSERV,FATAL ; Found dangling CDT reference | 
081 894 110$: 
081 895 ; 2??? End of bug traps 
55 58 00 081 896 MOVL oR Hold HQB address 
OFD8 8F BA 0816 897 POPR #°A<R3,R4,R6,R7_-RB,RI-RIO,R11> 
O81A 898 ny amy 
0820 899 ; 277? more bug t 
14 A5 01 DO 0820 900 MOV ne <HOBSL COT(RS) ; zap CDT address 
0824 901 ; ??? end of wore aE raps | 
51 1€ AS 9A 0824 90 MOVZBL VEC(RS),R1 3; Pick up vect number 
F8E3 CF41 D4 0828 90 CURL HOST, ECERT3 : Show us gone | 
F81D CF B86 O082D 904 INCW NUM_AOST 3 Up number of host slot left 
53 55 00 0831 905 MOVL RS,R3 ; HQB address 
2c AS) —B7:sC(0B34)~—s(«906 DECW HOBSW_REFC(R3) ; Decrement reference count of HQB 
06 12 0837 907 BNEQ 120 ; Not yet 0 -- we never deallocate in this c 
50 63 OF 0839 908 REMQUE HQBSL_FLINK(R3),RO ; Remove from List headed by MSUSQ_HQBLIST | 
FEOF 30 O083C 909 BSBW DEALMEM 3; Get rid of HQB 
05 O83F #910 120%: RSB 
0840 911 
| 
| 
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- MSCP Server - 
WAIT FOR INT -SEP-1984 MSCP.SRCIJMSCP.MAR; 
4 913 ~SBTTL WAIT FOR INT 
4 914 
8 Be 
4 319 ; The resuming address and R3/R4 are saved in the CDRP. Control 
: 318 ; is returned to caller's caller. 
4 920 ; Input: 
4 921; R3 ==> HOB 
4 9 § $ R4 -=> UOQB 
40 923; RS ==> CORP 
4 924 ;- 
0 t 3 3 ENABLE LSB 
0840 9 5 
0840 928 BLOCKEDH: 
68 AC =6EB ASCO Oaee 929 INSQUE CDRPS$L_UQB_FL(RS), - ; Insert this packet on blocked que 
0845 930 YOBSO_BLOCKACR4) ; at head 
os 11 pee 931 BRB 10$ 
0847 9 ¢ 
0847 933 BLOCKEDT: 
6C B46 EB AS OE 0847 934 INSQUE CDRPSL_UQB_FL(RS), - ; Insert this packet on blocked que 
084C 935 QBSO_ BLOCKQ+4(R4) ; at tail 
D6 AS 07 BO O84C oR9 10$: MOVW #7, CORPSW_STATE(RS) ; Ditto 
02 88 0850 93 BISB  #UQB$M_BLOCKED,- > Set blocked flag 
B AG 0852 «938 UQB$B~FLAGS(R4) 
CAS 86B6 00854) «939 INCW UQBSW_RUM_BLK(R4) ; Bump number of packet queue to unit 
7C AG Bl «(0857)—s («940 CMPW UQBSW_ NUM BLK(R4),- : Is this number <= max? 
7E AG 085A 941 UQBSO_MAR BLK(R4S 
05 18 O85C 94 BLEQU WAIT _FOR_IRAT : Yes, skip 
7C AS) «6©BO 6(OBSE = «94 MOVW UQBS@_ NUM _BLK(R4),- 3; No, set new max 
7E AG 0861 944 UQBSO_MAR_BLK(R4S 
0863 945 ; And fall thru to wait 
Bees 946 WAIT_FOR_INT: 
10 AS) 53 7D 086 94 Aova R3,CORPSL_FR3(R5) ; Save registers 
OC AS BEDO 0867 94 POPL CORPSL_FPT(RS) ; Store resume point 
0868 949 RSB ; Return to caller's caller 
086C 950 
086C 38951 DISABLE LSB 
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«-SBTTL MAIN LINE ROUTINE 


+ 


This is the main Line routine that does all the work. 


Inputs: 
Ri = Length of message 
Ré --> Message 
R35 ==> COT 
RG ==> PDT 


-ENABLE LSB 


C909 09 SINISE NPA A AAAAOAAAOOAAOOAOAOS ZH 


HOSS sas VR OASOO OU Mr rer mmrmerrmeren rere me 
OOO NAULE WN SO OOO NAMES WIR 0 OD NAME A" OOONOUSW = I 


P 
L 
0 
0 
8 
18 BB O 10$: PUSHR #*M<R3,R4> ; Save vital registers 
0 DEALLOC_MSG BUF REG ; Deallocate message buffer 
18 BA 0 POPR #*MZR3,R4> ; Restore registers 
FOF4 31 e BRW VC_ERR ; Break connection and return 
0 MSG_IN: 
13c0 630 0 BSBW GET_STRUCT : Get data structure 
FO 50 «EO «C(O BLBC RO, T0$ : Failed to get one 
F930 CF 46 OO INCL  OPC_COUNT : Grand total of requests 
BO AS 28 DO 0 MOVL R2,CORPS$L_MSGBUFX(R5) ; Store the message pointer 
10 AS) 4 OO CLRL § CDRPSL_MSG_BUF (R5) : Mark it not in use 
2405 53 00 0 MOVL R3,CORPSL_CDT(RS) ; _and the CDT 
60 AS 53 D0 0 MOVL R3,CDRPS$L_CDTX(R5) 3; Store CDT in non-volatile cell 
53 SC A3 DO 088 MOV COTSL_AUXSTRUC(R3).R3 =: Pick up the HQB address 
7C AS) =6553)—=— 0s«€089 MOVL R3,CDRPSL Wag ins) 3; Store HQB address 
2c AS) BG O89 INC HOBSW_REFC(R3) : Up reference count 
28 AS) =6B6 O89. INC HQBSW_NUM_QUE (R3) ; Bump number of packet queue to host 
28 AS’ «Bl SOoOOB9 CMPW HQB$W_NUM QUE (R3) ,- : Is this number <= max? 
2A AS O8A QBSQ_MAR_QUE(R35 
05 1B O8A BLEQU 30% ; Yes, skip 
28 A BO O8A4 MOVW HQBSW_NUM_QUE(R3),- : No, set new max 
2A A OBA7 991 HOBS@_MAR_QUE (R35 
Beas 454 3; Check the MSCP command packet for protocol errors 
Oc 51 B81 O8A9 995 $0 CMPW sR}, @MSCPSK_MIN_SIZE > Is it the min Length? 
17 «19 8 AC 44: BLSS ; No, error 
50 08 Ae SA ag 99 MOVZBL MSCPS$B_OPCODE(R2) ,RO ; Pick up the opcode 
7 13 088 998 BEQL ; None is error 
40 8F 50 91 0884 999 CMPB RO, PMASUSK_MAX_OPC : Out of valid range? 
6F 14 0888 1300 BGTR cS :; Yes, error 
54 1CFC'CF40 869A A 1001 MOVZBL COM_PKT_LENCRO],R4 3; Get expected length 
, co 1 8 BEQL ERR. 1 ; Invalid command 
54 1 61 C2 100 CMPW R1,R4 : Big enough? 
68 19 C5 1004 40$: BLSS ERR_2 ; No, error 
OA A2 1D4C°CF40 = B33 C 1005 BITW MOD vou CRg) = 
CE 1 6 MSCP$W_MODIFIER(R2) ; Check allowable 
63 12 43 1 BNEQ ERR_3 ; Non-allow bit set, error 
FLAS O02 CE + ! 8 MNEGL #2,CDRPSL_CMD_STS(R5) ; Set up initial cmd status 
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70$: ASHL 
CASE 


; Error paths 


ERR_1: ROTL 
BRB 
ERR_2: CLRL 

BRB 
é 
é 


Wo 
we 
Se 
i=] 
< 
~ 
< 
an 


SrSEp=19be 19:44 


A Seay, UNIT(R1),R2 


AFECctamsuse_uy UNIT_ s12>-15, 
pit. VECLR4I, 


MSCPS$W_UNIT(R1) 
yoBsu. UNIT(R2)° 


Lhe ad 


; Grab the unit number and try to find a UQB for it | 


FLAG 70$ 
#acDRP$v Noite oUF . ° 
*loRPSB. FCAGS(RS) 


~ 
Sete Se Se Se Ge Ge Ge Ge Ge Ge 


#-3,R0,RO : 
RO,- ; 
<IMMED,- s 
SEQ,- 3 
NSEQ = Py 
MAINT, = : 
NSEQB> ; 


#24,#MSCPSB_OPCODE.RO ; 
ERR X 


RO 3 
ERR_X 

#24, #MSCPSW MODIFIER RO ; 
CDRPS$L_MSGBOFX(RS) RO: 


#<MSCP bSk ST remparee 
; PS. - 


CORPS MST-UQB(R : 
BnSCPAE sine SIZE, Rt : 
CDRPSL_MST_UQB(RS) ; 
MSCP$B~OPCODE (R1),- : 


#ASCPSK_OP_AVAIL 
#MSCPSK_ST_OFFLN,RO 
SEND_PKT 


:5 AX/VMS_M v04-0 P 
SE wartatac mi 


MSCP.SRCJMSCP.MAR; 


Transfer to a better reg 
epics up unit number from command 


Res he 


ot 
Look for e* block in slot 
: Empty 


Hit, is it a match? 
_ 


try more Pring’ 

Setut did not ting t 

Save UQB point 

Save slot in CDRP and zero FLAGS 
Pick up the gecede. 

Save apeeds in CDRP 

Count the opcode 

Is this the passthru driver? 
Yes, set flag 


; Split up command into class then dispatch on it. 


Pick up class field 
Dispaten on class 
MMEDIAT 


EDI 
; ~ SEQUENTIAL 
; 16 = NON-SEQUENTIAL 
; $3 - MAINTENANCE 
; 32 = NON-SEQUENTIAL/BUFFER 


Opcode error 
Illegal Length 


Modifier error 
Recover message buffer 


; Set invalid 


No master UQB 
Length of message 


Zero out UQB pointer 
Command need unit? 


No, aliow to continue 
Yes, set failure status 
And leave 


G 14 


> 
e 
a 


es 


BNAVUE WN" OOONOULS UN O0@O~y =! 
@o 
mm 
© 
cr 


mulator 16-SEP-1984 02:00:5 AX/VMS Macro V04-0 
ne et ee 9 96:90:33 EmscP src MSCP.MAR; 
: -DISABLE LSB 
; Routine to find slot number from unit number 
: RO = Unit number to match against 
FIND_SLOT: 
ADOL #MSUSK_MAX wt 
MOVL UNIT VECERE »R2 


CHPU RO, UOBSW_UNIT(R2) 


Try for second probe 
Look for unit block in slot 


mot 
Hit. is it a match? 


3 10 
52. F72C CF44 
28 A2 


AOUMUIMNUIVIVIVVN ZU? 


WNW FAOMOOOOOO me 


OWDOOOOOODOOODOODOOODOOOOOODO 
kk kk kt 
ee Ge Se Ge Ge Ge Ge 


000909 090909 09 0908 INI NISSEN O 


co 
08 08 
8 
1 i3 BEQL ; Yes 
> we D 608: MOVL #<2*MSUSK_MAX  polaiicmes Sequential search 
52 F71B CF44 0 0 0$: MOVL NIT_VECCR4I,R ; Pick up unit 
96 1 8 BEQL : Empty 
28 A2 B1 7 CMP RO yeese Wait iRe) ; Hit, is it a match? 
A 13 7¢ BEQL ~=-:100 : Yes 
4 oO 7 80$ DECL RG 3; Loop thru 
10 4 D1 8 8 CMPL R4 ,#MSUSK_MAX_UNIT 3; Reached end? 
fe 18 8 BGEQ 70$ 3; No, try 7 
54 1 cf 8 90$: MNEGL #1,R4 ; Set a failure indicator 
0 8 1088 100$: RSB 


— | 
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COOCOCOCOCOCOOOOOOOOO 


UFSWN 0 OONOAUS UN" 


16-SEP-19 
$78Eb=19 


RO scratch 

i _ ° »veete e buffer 
ts of command 

pow to . 

Unit number 

Ptr to CORP 


cORPSB OPC 
ew Ll 
s 


DDDwD 
USwn— 
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> 
wn 
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BRB ERR T : 


Be 99:90:03 EAScersecSascP-RaR: 


-SBTTL IMMEDIATE class commands 


ve 


$K _0P 


‘ABORfe on command subtype 


MieA ABORT 
; s gS COMMAND STATUS 


-GET UNIT STATUS 


; 4-SET CONTROLLER CHARACTERISTICS 
; Illegal command 
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MSCP = MSCP Server - Emulator 16-SEP-1984 02:00: AX/VMS Macro v04-0 P 
v04-001 = 7 = ABORT oreo obs $o:sei02 Emech eRe saser Gare 7-5 
998 1107 . SBT - 1 = ABORT 
4 1 8 FTAKAAKAKeeKeeKeeeeeeKeeeeeeeeReeAeeKeeeeeKeeeeeeeeteeeene 
$ « 
4 1119 : #1-*+ ABORT * 
99 W116 s Seeneccecencnccreececeencnenececeeceeqqneonsceseceqeeees 
998 1114 ABORT 
121D 30 0998 1115 " BSBW SEARCH_QUE ; Find the entr 
73°50 €9 0998 1116 pipe | RD Ss ; Failed to find it 
99— 111 CASE  CDRPSW_STATE-CDRPSL_UOB_FL(R1), TYPE=W- 
99E 1118 <388 = : 9 - Mem wait 
99E 111 20$,- 3 1 - Map wait 
99E 1120 40$,- : ¢ - Driver que wait 
99E 1121 40$,- 3; 3 = Data command wait 
99E 11 § 40$,- : 4 - Driver qe wait 
99E 11 at te ; 5 - Msg send wait 
99E 1124 $,- 3 § - pede holding que 
99E 1125 70$,- 3; 7? = Blocked que 
344 1 § 70$> : 8 - Online-copy blocked que 
$383 i 8 ; BUG_CHECK MSCPSERV,FATAL 3; ERROR 
4494 1 ? : CDRP was on the memory wait queue. Remove it and post it. 
FOA3 CFB? 0989 1 j 10S:  DECW NUM_QUE 
Bpee 1 : ; CDRP was on the map resource wait queue. Remove it and post it. 
50 18 Al OF O9BD 11 : 20$:  REMQUE CDRPSL_FQFL- - 
ad 11 CORPSC_UQB_FL(R1),RO ; Remove from wait queue 
18 Al 9F O9C1 1138 30S: PUSHAB -CDRPS$L_UQB_FL(R1) ; Push addr of CDRP to be aborted 
$8 10 09C4 1139 BSBB S$ ; Return the ABORT end packet 
55 BEDO O09C6 1140 POPL R5 ; Recover aborted CDRP pointer 
09 #sFBAS 9 Bare 1133 CMPB ts at ye tA - : If non-sequential command 
03 1B O9CD 1128 BLEQU§ 35% a oe 3; then 
OSCE 1144 UNMAP ; Get rid of possible map resource 
5 08 i) 45 1145 35$ MOVL #MSCPSK_ST_ABRTD, RO 3; Set status 
52. BOA DO 09D 1168 MOVL CORPSL_ASGBUFX(R5),R2  : Recover message pointer 
5 AS DQ 0909 114 MOVL CORP$L_ABCNT(RS),- 
CA 90C 1148 MSCPSC_BYTE_CNT(R2) §; Show acumulated byte count 
OOF 31 My 18 BPW SEND_PKT 3; Return the command end packet 
9E1 11 ? : CDRP was a activit pending queue ; We cannot arbitrarily remove it. 
9€1 11 § ; Therefore, just set the ‘‘ABORT’’ bit and let the action routine deal with 
43 iy i : it when it returns. 
10 88 Q9E1 1184 dos: BISB #1aCDRP$V_ABORT,- 3; Set ‘ABORTED’ bit 
12 al 963 11 6 CORPS$B_FCAGS-CORPSL_UOQB.FL(R1) 
A 11 3 1 BRB $s ; Leave with success 
34 1139 : CDRP was on the special holding queue. Remove it and post it. 
50 61 OF 9&7 1161 50$:  REMQUE (R1),RO ; Remove from special holding que 
4 2 Q9EA 1196 3; Not the Last entry 
8 8A O9EC 116 BICB #UQBSM_CMDPEND,- ; Clear the command pending status 
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-001 = MRE RSoRT r orSEE 188s 99:90:83 PASCHMS agro Maka” oe 28, 
2B AG E UQBS$B_FLAGS(R4) 
61 o F i : 60$: CLRL ay : ; Show not queued 
CD 1 : 1 § BRB 0$ 3; Finish up 
ae 16 : CDRP was on the blocked queue. Remove it and post it. 
7C AG 87 9F4 1170 708:  DdECW yapsu NUM_BLK (R4) ; Drop the blocked count 
50 «61 F QO9F7 117 REMQUE (R1),R0 ; Remove from blocked queue 
F4 «612 «(O9FA 1128 BNEQ $ ; Not the last entry 
02 BA O9FC 117 BICB #UQBSM_BLOCKED,- ; Clear blocked flag 
2B AG Ha; 1174 QB$B_FLAGS(R4) 
11 QAOO 1175 BRB 60$ 3; And finish up 


19736 0n1 386 4 96:00 +33 yaaryne cro V04-0 Page 27 | 


MSCP - MSCP Server - Emuiator 
v04-001 - 2 = GET COMMAND STATUS -SEP=1984 MSCP.SRCJMSCP.MAR; (1) 
ad2 1177 .SBTTL - 2 = GET COMMAND STATUS 
r 1128 3 ITITIIIITT ITIL ITLL LITT tii TTT i lt —". 
A 1 0; : #2 - GET CMD STS : 
A 1 gi S puaweeeereccncereceneeeeccereneneceecennceecccereenecere 
A 
AO2 1184 GET_CMD_STS: 
1183 30 OAO2 1185 BSBW  SEARCH_QUE : find entry 
09 E9 QAOS 11 § BLBC R ; None, always return success 
54 BOAS DO OA0B 11 MOVL CORP L_MSGBUFX(RS) Pick up buf ter address 
OC Al 00 OAOC 11 8 MOVL CDRPSL~CMD_STS- SORES *uob_F L(R1),- ; Found it, 
10 AG OAOF 11 MSCPS$C_CMB_STS(R4) : ea the status code 
OOBE 31 OAI1 1190 Ss BRW SEND_SUCCESS 
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« SrSEp=19B0 19:10:02 EascPesRCIASCP. RAR: tates 


_ 


3 = GET UNIT STATUS 


- SBT 
Weneeuedeueesereeeeereeeeeeeseunttuceeeneseneqeeerenres 
* 
#3 - GET UNIT STS * 
* 
III iii iiiii iii iit itititiiii iii, 


GET _UNIT STS: 
ME 


ASSU MSCPSV_MD_NXUNT EQ 0 
BLBC MSCP$W_MODIFIER(R1),50$ ; If not NXTUNT, do staight processing 
MOVZWL MSCPSW_UNIT(R1),R2 3; Pick up orginal unit number 
MOVAL UQB_LIST,R4 ; Point to head of List 
CMPL (R4T,R4 ; Queue empty? 
BEQL 208 3 Yes, return OFFLINE failure, unit=0 
MOVL R4,RO 3; No, copy starting point 
10$ MOVL  (R4) RG : Get next entry 
CMPL = RG, RO : End of line? 
BNEQ 40$ ; No, continue 
eps: CLRW MSCPSW_UNIT(R1) ; Yes, give : ecial code (Unit 0) 
0$: MOVL #MSCPSR_ST_OFFLN,RO 3; Set for OFFLINE 
BRW SEND PKT 3; Return end packet 
40$ CMPW R2 yossu UNIT- 
UaBsa “UNITO(RS) ; Compare unit numbers 
BGTRU 198 3; Not far enough, eo Looping 
MOVAL =UQBS$Q_UNITQ(R4) ,R4 : Set ne to head of 
BRB 60$ 3 Don 
508: MOVL Wait veces, R4 ; Get pointer to UQB 
BEQL 0$ ; None, return status 


: Found UQB for unit, transfer information 
60$:  MOVW  UQB$W_UNIT(R4),- 


MSCPSW_UNIT(RI) : Return the unit 
CLRB MSCP$B_RCT_CPYS(R1) ; Assume no RCT 
MOVL pags. mit (R4),RO 3 Get _ievice uCcB 
BEQL 0$ 3 Non 
MOVZBW UCB$B_SECTORS(RO),- $ Transfer. number of sectors 
MSCPSW_TRACK(R1) : per tr 
MOVZBW UCBS$B_TRACKS(RO),- : Number of tracks per group. 
MSCPSW_GROUP(R15 
BBC DEVSV_RCT, - : Branch if no RCT 
UCBSL PEYCHAR (AO) 80$ 
MOVB 1,MSCP$B_RCT_CPYS(R1) ; Mark RCT present 
80S: MOVL #1,MSCPSW-CYLINDER(R1) ; Number of groups per cylinder. 
CLRW = MSCPSW_RCT_SIZE(R1) : Be dick bok thes 
LRB MSCP$B_RBNS(R1) 3 
MOVZWL UQBSW_STATUS(R4) ,RO ; Pick up unit status 
IN_URIT_STS 3 Either OFFLINE or AVAIL 


N } 
mOvZBL QBSB SLOT(R4) ,R2 Pick up slot number 


y ‘hast qu _ONLN(R3),- 
FIN NUNIT ; If not alread ONLINE te this host 
MOVZWL wnscr K ‘or AVLOL. RO : then it is AVAIL to i 


FIN_UNIT STS: 
ROVE 


PIPIPIPIPIMINIPINIPYPIPOPIPYINDINYIDIPINIPININPINPINIPINIPINYININIPINIPINIPYIPIPIPIPININIDAINININININININ 2 2 OO ssa 


PEEPS FS FW WIIWIWIWIWIWINIDINPININPININININIDS 4 PS MOOOOOOOOCOOCOOOOOOOO 
CONAN WN 9 OD NOUS WN OOO NAVE WIN 9 OO NAME WN $0 OONAUMUEWN—OOONOULSUM -11 


UQB$W_MULT_UNT(R4), - 


MS 


VO6-001 2 MNS SET Ont STATUS ™" —‘epctgHe 98:00:55 YARLAME tse, vOEe ome 


A ] eseeey MULT ut ade ; Copy mult_unit & unit_flags 
14 A1 18 AG 7D OA MOV vdB$Q_URIT ID(R4), - 
A951 MSCPSQ_UNTT_ID(R1) : Copy unit identifier 
20 AG) «7D COA 1 ; MOVQ $UQBSL_MEDIA_ID(R4),- 
1C Al A9B 125 MSCPSL_MEDIA_ID(R{) ; Copy media identifier & shdw unit/flgs 
38 11 OASA 1254 BRB SEND_PKT 
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PRO OO NOUNE WIN OOO NAME WIN $ O OO NAU EWN 9 OONOAUE WN (OO OONAULS WI "OOOneo -11 


4 = SET CONTROLLER CHARACTERISTICS 


-SBTTL = 

FRA RAAT EAA AEE AEAAEAEEEAEARAAAAEAERERAAAEEARE 
. 

® 
° 
; 4 © SET CTRL CHR * 
. 
® 
o 
FRAARAAAAARAAE AERA AEA AAA AEARAR KERR EEAEAEERREEREAREEE 
. 


SEND_MISMATCH: 


BUG_CHECK MSCPSERV,FATAL ; Responding using stale CDT address 
SET_CTRL_CHR 
CMPW MSCP$W_VERSION(R1), = 
VERSION 3 Does the version match? 
BEQL 10$ : Yes, okay 
ROTL #24,#MSCPSW_VERSION,RO ; No, set sub status 
BRW ERR_X 3; Send invalid command packet 
108: MOVB MSCPSW_CNT_FLGS(R1), - 
HOBSW_CNT_FLGS(R3) ; Transfer Low byte 
MOVW MSCPSW_HST_TMO(R1),- 
HQBSW_HST_TMO(R3) 
MOVQ MSCP$Q_TIME(R1), - . 
HQBS$Q_TIME(R3) 3 eee and time 
3; Return controller information to host 
MOVB @#CLUSGL_ALLOCLS,- ; Transfer the allocation class 
MSCP$B_CNT_ALCS(R1) 
MOVQ CTRL_INFO, = 
lea MSCP$W_VERSION(R1) ; Send back info 


L_ID> = 
MSCP$Q_CNT_ID(R1) wee and ID 


SEND_SUCCESS: 
CLRL 


—— ~>QDOODOOD0O0000 0000010 009 09 09 09 09 09 09 09 09 098 SI NII INN NIA AAA AAAAAAUUIUIVG 


AAINIAIAIAIAIAIUAIAH AI AIA AIG a PIPPI NINIPIPIPIPIPINPIPINIPIPININIAIPININPIPIPIPINPINPIPIPINIPININININININININININITININ = OF 


RO ; Set success 
SEND_PKT: 
MOVL CORPSL_MSGBUFX(R5),R2 ; Pick up mespone buffer ptr 
BEQL 3; No message buffer 
MOVW RO, MSCP$W_STATUS(R2) ; Set the status 
SEND_PKT_STS: 
MOVZBL MSCP$B_OPCODE(R2),R1 : Pick up opcode 
BISB2 #MSCPSK_OP_END, - 
MSCP$B_OPCODE (R2) ; Make an end packet 
MOVZBL END_PKT_LENCR1),R1 : Pick up Length 
SEND_END: 
MOVL R2,CDORPSL_MSG_BUF(RS) ; Stuff the message buffer address 
MOVL CDRPSL_CDTX(RS) .R4 : Pick up the CDT address 
MOVL R4,CORPSL_CDT(R5) : Store into standard location 
CMPL COTS$L_LCORID(R4) - 3; Check validity of remote conid 
SCS$L-DST_CONID(R2) 
BNEQ SEND MISMATCH ; Trying to respond to stale connection 
MOVW #5, CORPSW_STATE(RS) ; Message send wait state 
MOVL CDTSL_AUXSTRUC(R4).R3  ; Pick up HQB address 
MOVL COTSL_PDT(R4) ,R4 ; Set up PDT address 
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Serve tor 16-SEP-1984 02:00:53 VYAX/VMS Macro v04-0 Page 31 ms 
SET C CHARACTERISTICS ets 7 95:90:83 EMSCP. SRC MSCP.MAR; “ (1) | v¢ 
AC AS 51 00 0 MOVL R1,CORPSL_PID(RS) ; Save the Length 
1 RECYCL_MSG ; Recycle the message 
51 ac aS 00 1 MOVL CORPSL_PID(RS) ,R1 ; Restore the lengt 
1 SEND_CNT_MSG ; Send the message 
53 7C A D 1A MOVL CORPSL_HQB(R5) ,R3 ; Get HOB address 
28 a3 OB IF DECW  HOBSW_RUM_QUE(R3) ; Drop count on host 
1 


-ENABLE LSB 
CLEAN_UP: 
CMPB CORPS$B_OPCODE(RS), - ; For immediate commands 


08 FB AS 91 
gfSCPSK_OP_AVAIL 


Petettttttetetateted 


1313 
1314 
! 5 
HF 
1 
1320 
11 
zie 
97 1F ; 1324 BLSSU 
5 odd 1325 PUSHL R5 3; Save CDRP address 
Of 10 9 1 § BSBB 20$ i Finish cleaning up 
55 8EDO0 +3 8B 1 POPL RS ; Restore CDRP address 
53 7C AS 00 1328 5$ MOVL CORPSL_HQB(R5),R3 ; Get HQB address 
2c A3 ef 3 1329 DECW HOBSW_REFC(R3) 3; Decrement HQB reference count 
1160 30 1330 BSBW «FREE. STRUCT : Free data structure | 
05 3 3 : 1 10$: RSB ; Just leave 
54 78 AS bg 0839 1 : 20$:  MOVL  CDRPSL_MST_UQB(RS).R4 ; Pick up UQB pointer | 
Fos OB3D 1334 BEQL 10$ ; There is none 
E8 H rf 44 : 5 peor REPS UEB_FL CRS) g ae this CDRP queued on a UQB? | 
; No 
50 E8 AS OF OB44 1 $ REMQUE CDRPS$L_UQB_FL(R5),RO ; Remove from unit que 
E8 AS DS 0848 1338 CLAL CORPS$L_UQB_FL(RS) ; Prevent double remque - if this code 
0B4B8 1339 ; _is moved, always get rid of Link!!! 
50 a4 soB? Pe : re DECW UQBSW_NUM_QUE (R4) 3; Drop count on unit 
OB4E 1 ¢g : Check for any buffer resource and return it. If possible start up any | 
at : r ; thread waiting for buffer. 
FAAS O02 93 OB4E 1345 $0$: BITB #1@CDRPSV_BUFFER, - : Check for buffer | 
OBS2 1 46 CORPSB_FCAGS(RSS 
1¢ 413 OBS2 134 BEQL 4 ; None, skip next 
0777 30 0854 1348 BSBW DEALLOC_BUFF ; Yes, get rid of it 
F505 CF 83 0857 1349 TSTW NUM_QUE ; Anyone waiting? 
>} ts, 1350 BEQL ; No, leave now 
55 F517 OF * 23 : 3] = a SOE R MAST RS 3 ee first entry 
3 None 
of 0D Spee 1 3¢ PUSHL R4 ; Save context 
53 10A5 7D 0866 1354 mova CORPSL_FR3(R5) ,R3 ; Restore old context 
; 0c 85 16 0B6A 1355 JSB aCDRPSC_FPC(RSS ; Finish off the pkt 
4 8EDO0 p86 ! 2$ POPL R4 ; Restore old, old context 
0870 1 28 : If this is Last command on execute queue, then check for ony blocked 
0870 1359 ; commands. If there are some, start up the first one. If the SEQ bit 
0B70 1360 ; is still set, we are in sing e command mode, so do not fetch any more 
. : $1 ; commands, otherwise drain the blocked queue. 
50 AS OBS 70 1 $8 Los: TSTW UQBSW_NUM_QUE (R4) ; Any entries queued? 
co , : rf BNEQ 10$ :; Yes, leave 
75 «(136 DISABLE LSB 
75 «1 6 DRAIN_BLOCKQ: 
7C AG if 75 1 o8 10$: TSTw YOgse_WUM_BLKCRS) z Any entries queued? 
25 18 0B78 136 BEQL «308 : No. Leave | 
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C 15 
“* Seb 9 
CHARACTERISTICS “SEP-19 


REMQUE pyeteeoceecn 
QB SW_NUM_BLK(R4) 


BICB #UQB$M_BLOCKED 
vase “FLAGS (RE) 


“CORPEC. UG UO8 “FL(RS), R5 


mova CORPS FR3(RS)R3 
J$8 acDRP C_FPC(RSS 


BITB F<UOBSM SEQ! UQBSM _RIP>, =! 


Heese. FLAGS(R4) ~ 


AX/VMS “3 cro V04é- Page 4, 


att O03 tMSCP. src) MSCP.MAR; 


Remove from blocked que 
None, leave 

Drop count 

Is it the last? 

Yes, clear the flag 


Set new CORP ptr 
s geve old VeB 

| Pte old context 

4 nish off the A oe 
eestere old U | 
Check if in yee mode 


; No, get next command 


1 


dD 15 


= MSCP Server - Emulator 19-$50=18 4 96:00:33 AX/VMS Besce v04-0 Page 33 
v04-001 SEQUENTIAL class commands “SEP-1984 17:14: MSCP.SRCJMSCP.MAR; (1) 
. ! 7? -SBTTL SEQUENTIAL class commands 
AQ 1 § ; This section of code sets up for sequential command processing. First 
AQ 1390 ; we make checks for sequentiality. 
AQ 1391 ; a) If commands are already blocked, then this command must be blocked 
AO 1 36 ; also to preserve sequentiality. Code at label CLEAN_UP will 
AQ 1395; unravel all of this 
AQ 1394 ; b) If there are any non-sequential commands on the preseesine queue, 
ae : 2 3 Eoee, tac comaane must be blocked and the blocked flag set 
: n the . 
QOBAO 1 39 3 c) EXCEPT that an ONLINE or AVAILABLE to a shadow master in the 
gan 1 38 3 opy=in=progress phase will be let thru, since that phase 
3 $s not strictly sequential. 
ron F244 tl tial 
A 1264 : RO scratch 
A 1306 3 Ri = Ptr f° message buffer 
OBAQ 1405 ; R2 = Low 3 bits of command 
OBA 18 ; R3 = Ptr to HOB 
OBAO 1405 ; R4 = Unit slot number 
A 1308 ; RS = Ptr to CORP 
FB AS 91 OBAD 1408 SEQ CMPB CORP$B_OPCODE (RS) ,- ; Check opcode now 
08 OBAS 1409 #MSCPSK_OP_DTACP 
60 1A OBA& 1410 BGTRU 70$ ; Out of range - error 
03 «OF pane 1411 BLSSU-—«i10$ : In range, continue 
0794 31 OBA 1216 BRw DET_ACC_PATH ; DAP is a nop 
54 785 0 OBAB 1414 10$: MOVL CORPSL_MST_UQB(RS),.R4 ; Get UQB pointer 
93 OBAF 1415 BITB #<UQBSA_BLOCKED!- : If already blocked, 
sees 1416 UQBSM_RIP!- i or in a repair 
0880 1417 UQBSM_SEQ>,- : or in sequential mode 
2B AG 32 an see} 1618 vde QB$B_FLAGS(R4) > block this cmd 
09 €1 0885 1420 BBC #MSCPSV_UF_SSMST,- : If not shadow master, skip test 
05 12 A4 0BB7 1421 UQBSW_ONT"FLGS(R4) , 208 
00 €0 OBBA 14 4 BBS QBsv_ ad : If CIP, then allow thru 
1A 28 AG OBBC 14 UQB$B~FLAGS(R4) ,50$ 
0 a4 BS OBBF 1424 20$: TSTw yapsu_AUM_QUE(R4) ; Any entries queued? 
15 13 OBC2 1425 BEQL 0$ ; No, leave now 
10 88 C4 14 $ 30$: BISB #UQBSM_SEQ,- ; Yes, set for sequential mode 
2B A4 C6 14 UQB$B-FLAGS(R4) : rundown the 
core 1 3 BLOCKT ; and block the command until done 
CB 14 ? : Just in case we get restarted and there are entries left in progress, we 
1 1? 3; have to wait, but we also have to block any new entries. 
50 a4 OB CB 14 : dos: TSTW Yaese Wun Gus (AS) ; Any entries queued? 
a | CE 1434 BEQL 0$ ; No, leave now 
10 DO 1435 BISB #UQBSM_SEQ,- ; Yes, set sequential mode while waiting 
2B A4 D2 14 $ UQB$B-FLAGS(R4) 
D4 14 BLOCKH ; Block the command 
F211 44 1° 3 BRB 408 : Command is resumed, check again 
E8 AS & D9 1440 508: CLRL CORPSL_UQB_FL(R5) ; So no spur ious remques 
10 DC 1441 BICB #UQBSM_SEQ,- ; Clear the flag in event of an 
B AG DF 1468 UQB$B~FLAGS(R4) : error exit 
50 03 00 EO 144 MOVL #ASCPSR_ST_OFFLN,RO ; Assume offline status 


<3 


E15 | 
¥Oo~001 SEQUENTIAL class. commands "ore e eri obe $9; i He CHT OTs —_ a 
tatus 


50 OE AG 35 ES 1444 MOVZWL yopsu. STATUS(R4) ,RO k up status from 
0c £7? 1445 BNEQ i Either OFFLINE or wr Ne | 
51 2A AG ODA E9 1o98 MOVZBL UQB$B_SLOT(R4) Recover slot number | 
03 10 a3 fa ED 144 BBS R1, HOBSL gyNiT GNLNCRS), sis" If not alread ONLINE this host 
50. (04 CO F2 14468 MOVL anscP Si ; then it is AVAIL 
51 BO AS DO OBFS 1449 608 MOVL eOR PSL asusorne RE) RI: Pick up message but fer 
f 1450 CASE CORPSE, OPrObEC CRS) 3: Di prepeten on command subtype 
F9 1451 PESB,LIMIT=#MSCPSK _OP’ AV 
F9 1458 ; 8 - AVAILABLE 
F9 145 ON ‘ih : 9 INE 
OBF9 1454 SET_ UNIT_CHR,- : 10 
F9 1455 DET-ACC _BATH> 311 SE TEMMINCE ACCESS PATH 
FD20 «31 «0C06 «61456 708: BRW ERR_T 


| 
T UNIT CHARACTERISTICS | 


- MSCP Server - Emulator me tb 4 96:00:33 ad ee Macro V04-0 Page 
v04-001 ~ = AVAILABLE -SEP-1984 14:0 MSCP.SRCJMSCP.MAR; 
C09 1938 -SBTTL = 8 - AVAILABLE 
C 2 1228 PRAAAK Hee ee Kee eee KAR eee eeeeReKekeeeeeAeeeeeeeeeeeeeeees 
C 3 ® 
: 2 1283 3 #8 - AVAILABLE 
C 9 1488 Seeeeererereeereecereeereereeneeeeereereeeereeeeeeenerere 
CO9 1464 ; 
50 85 CO9 1465 AVAIL: TSTw RO : Check unit status 
1F 1 C 1098 BNEQ 30$ ; Either offline or available 
51 FBAS 3C OCOD 1467 10S: MOVZWL CORPSW_SLOT(RS),R1 ; Pick up unit number 
10 88 QC11 1698 BISB #UQBSM_ - ; Set for sequential mode 
2B AG cl 148 UQB$B_FLAGS(R4) : no new [0 until done 
€8 AS OE OCI 14 INSQUE art UQB_FL(R5),=- ; Insert this CDRP on unit queue 
B4 C18 147 vaB$sC CDRP BL(RA) 
0 A4 96 C1A 108 INCW UQBSW_NOM QUE (R4) ; Account for it 
1 1 Bete 147 BSBB MAKE_AVAI ; Make available 
54 78 A dO CIF 14746 MOVL CORPSL_MST_UQB(RS) ,R4 ; Recover UQB pointer 
10 BA bc 1475 BICB #UQBSM_SEQ,- ; Clear the Sopsene sen flag - 
2B AG ¢ 147% YOBSB_FLAGS(R4) : allow any [0 now 
50 Bt 0c 147 CLRL 8 3; Send success 
FEAB 1 43 ; 1928 208: BRW SEND_PKT 3; Do it 
3 ; \eey : If unit was OFFLINE, command is illegal in this state, send OFFLINE status 
OCeC 1488 , ASSUME <MSCPSK_ST_OFFLN&1> NE 0 
FA 50 €E€8 OC2C 1483 30S: BLBS RO, 208 3 OFFLINE 
54 9) OC2F 1484 TSTL 3; Any UQB? 
05 13 0C31 1485 BEQL 40$ 3 No, skip next 
09 €0 OC33 1486 BBS #MSCPSV_UF_SSMST,- ; If this is a shadow master, 
DS 12 A4 0C35 1487 UQBSW ONT-FLGS(R4),10$ ; then allow the command else ... 
FE9 31 gc 8 1og8 40$: BRw SEND_SOCCESS ; AVAILABLE, is NOP 
oc 1490 : Subroutine to make unit AVAILABLE. It can be called recursively. 
ores 1636 : R1 = Unit number 
a a eee 
C38 1495: SP --> Caller of MAKE_AVAIL 
; 1238 : 4(SP)> Caller’s caller 
C38 1498 MAKE_AVAIL: 
00 10 Ad 51 §3 C 1499 BBCC R1,HQBSL_UNIT_ONLN(R3),10$ ; Show this unit not online this host 
51 1£ A3 9A 0C40 1500 108 MOVZBL HQB$B_VEC(R3)7R1 > Pick up host slot number 
4 0 C44 «1501 TSTL RG 3; Any UQB? 
2A 1 cg 1 § BEQL 30$ : No, skip next 
20 34 AG 1 53 C48 15 BBCC R1,UQB$L_HOST_ONLN(R4),20$ ; Show this host not online this unit 
Oc AS) «97s «CKD «1504 DECB 08$8_HOST_CNT(R4) : Drop host count on unit 
0 18 €50 1505 BGEQ $ 3; If any host left, leave now 
9 +€ C 1 BBS #MSCPSV_UF_SSMST,- ; If. this is a shadow master, 
12 A4 ¢ UOBSW ONTIFLGS(R4) ,- : then allow the command else ... 
§¢ BO OC $ 1 3 MOVW st ST_AVLBL,- : else set status for unit 
AG 59 (1 10 UoBsw STATUS (RGS : ONLINE --> AVAILABLE 
52 AG pg c5B 151 MOVL UQB L_OCB(R »,R2 ; Pick up UCB pointer 
OOAE C2 CSF 1 I DECB UCBSB_ONLCNT (Re) : Decrement count 
E 15 C63 ' \7 : BLEQ : If zero, do 10 
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"SrSEp=19Be 19:44:02 EascpesRciAsces RAR: 


LABLE SEP=1984 

1515 ; This is the last host online to this unit, but there is a local path 

1 1§ 3 to the unit. Thus there is no actual 10 needed to the unit. However, 
! ! : check if any post processing is called for (shadow member only). 

1 15 : BBC #MSCPSV_UF_SSMEM,- ; If this is a shadow member, 
1520 UQBSwW QNTFLGS(R4) , 308 : then 

} Tr BRw AV_CASE2x ; Continue in special routine 

1 g : Host was never online to this unit. However make special check for 

: ¢ 3 @ shadow master with no units and in a transistion state. 

1 $ 20s: BBS #MSCPSV_UF_SSMST,- : If this is a shadow master, 

: UOBSi ONT=FLGS(R4) ,- ; then allow the command else ... 
: : 30$: RSB 7% ; Leave without further processing 
13 1 : This is the Last host online to this unit, and there are no local paths 
13 § 3; to it either. Thus decide if SPINDOWN is needed, and issue the AVAIL. 
1534 dos: TSTL = RS : Is there a CDRP? 

1535 BEQL 30$ 3 No, skip tests 

15 $ MOVL ERSPCL AOGBUF HERS) LM ; Recover MSCP packet pointer 

15 BEQL 0$ 3; None 

1538 BBC #MSCPSV_MD_SPNDW,- : If SPINDOWN modifier... 

1539 MSCPSW-MOBIFIER(R1),50$ 

1540 MOV #10$_UNCOAD!- ; Set function to UNLOAD 

1541 10$A_INHERLOG,- 

1348 CORPSU_FUNC (RS) 

136? BRB 60$ 

1545 50$: mOVW #10$_AVAILABLE !- 3 Set function to AVAILABLE 

1366 10$A_INHERLOG,- 

154 CORPSW_FUNC(R5) 

1368 60$: BBC #MSCPSV_UF_SSMEM,- 3; If this is a shadow member, 

154 BSw_ONT-FLGS(R4),70$ ; then 

1550 POPL CORPSL gVAPTe (RS) ; Save normal return address 

1551 PUSHAB AV_CASE 3; and substitute special routine 
133¢ 70$:; 68S8B SETX 3; Do the 10 

1384 : Subroutine to setup for disk 10 

1356 SETX: MOVW #2, CDRPSW_STATE(RS) ; Show it queued to driver 

1 MOVL R5,CORPSL_FR3X(R5) ; Save the HQB pointer 

1 8 MOVL R4, CORPSL_UQB(R5S) ; Save the UQB pointer 

1 MOVL  UQB$L_UCBTR4),- : Transfer UCB address 

1560 CORPSL_UCB(R5) ; to UCB addr in IRP 

1561 CLRL CORPSL_CBN(RS) ; Just in case 

1 $6 MOVAL CORPSL_IOQFL(R5) ,R3 3; Cover IRP w/R3 

156 ss #IRPSV"PHYSIO,- ; Set PHYSICAL 10 bypass 

1 64 CDRPSO_STS(R5),10$ 

’ 5 10$: BR DO_DISK® 3; Send it off 

1 $$ : AVAILABLE to a shadow set master: Send AVAILABLE to each of the physical 
1 ; units in the shadow set. If the shadow set is disolved, then get rid of 
: 3; the shadow master unit. 

1571 Av_CASE3: 
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- hy ror yer - Emulator 
AILABLE 


10$: MOVL 

208: PUSHL 
8N 

30$: MOVZBL 


40$: RSB 


SESE 


UQBSW_SHDW_STS(R4),- 
DRPSB_SHBW_ CNT (RS) 


CORPSL sAvo RTX(RS) 
wiecoaney SCAVE ,= 


COR FCAGS(R5) 
QBSL_SADW_FL(R4) ,R4 
UuQBsB SLOT(RG), R1 
MAKE L 

DRPSB. SHDW_CNT(RS) 
CORPSL_SAVD_RTX(RS) 


CORPSL_MST_0QB(R5) ,R4 


voesu. SHDW_STS(R4) 
vosse, st TE94) R1 
Uaeea” “ENT TOGRG), RO 
DEALMEM 


25S 
Nw 


3 AVAILABLE to a shadow set member: 


: this unit from the shadow set ring, and 


: master unit to available. 


Av_CASE2: 
mova 
PUSHL 

AV_CASE2X: 
BBCC 


10$: CLRW 


20$: 


30$: CMPL 


CDRPSL “EyAPTES 


R3 
CORPSL_SVAPT ) 


Rs 


UQB$L_SHDW_FL( 
UQB$L- Sibu ~FLC 
OBS. SHDW"LOW 


Dw (RO) 


rsh FLTRO) ,R4 


Pete te Se Se Se Ge Se Ge Ge Se 
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MSCP.SRCJMSCP.MAR; 


If no members .. 

then just deal iocate shadow UQB 
Save return addre 
Clear out unneeded flag 


Pick up next shadow member 
None left 

Pick up unit slot 

Do the available 

Drop the count 

Loop if not done 


ss 
Pick up shadow master UQB 

Is this the last physical unit? 
No, just return 


Unlink from chain 
Set RO to solat to head 
Get rid of shadow master UQB 
control returns to MAKE_AVAIL caller 
Return to caller's caller 


out the shadowing fields, remove 
if last unit, set shadow set 


Recover HQB & UQB 
Return address 


Clear the shadow set member flag 


; Clear out old shadow master 
; Point to shadow master 
; Remove the pointer 


Decre shadow member count 
At least one left 
Clear master poe 
and low pointer 
Set status to AVAIL 


Skip all else 


Get our successor 
Remove us from the shadow ring 
Were we the lowest unit? 
No, leave 

Transfer its unit 

to shadow master's unit field 
Transfer its UCB pointer 

to shadow master 
Update the new lowest potater 
Were we the first in the ring? 
No, skip on 


MSCP - -* cP ferver = Emulator Sis 16-SEP-1984 02:00:5 AX/VMS Macro V04-0 Page 38 
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-001 AVAILABLE -SEP-1 MSCP.SRCJMSCP.MAR; 
60 52 0 D431 move R2,UQBSL_SHDW_FL(RO) ; Yes, update master with new Link 
+ ! 40$: PSB ; Return to MAKE_AVAIL caller 
D471 § ; AVAIL_ALL: Make the unit AVATLAGLE to all hosts to which it is currently 
D47 1° 5 “ONLINE. Also make it physically AVAILABLE. Cannot be called for | 
444 19 : : shadow masters. 
4 19 § 3 R4 ==> UQB of unit to be made AVAIL 
D467 16 8 AVAIL_ALL: 
AS wae D467 16 POPL CORP st SAVD_RTX(R5S) 3; Save een aderens 
C4 AS 54 4 04B 1909 MOV s5 55 L_uGB(R5) 3 gore UQB 
2a AG D4F 164 MOVZBW Uaé 2 SLOT(R4) - : Pick up t ° slot index 
FB AS De 1646 CORP W_SLOT(R5) > and save in CDRP 
-. 0 BA O° 1967 BICB sNcDRPsy SLAVE ; Clear unneeded flag 
1F =6©B0 bag 1645 MOV #<2eMSUSK_MAX_HOST>-1,- ; Stuff Bes index into convenient 
4 A try 1966 CORPSW_BOFF (RS) 3; plac 
DO A 3¢ > f 1647 10$ MOVZWL CORPSW FOEE {Ra oR3 3 pick up index 
53 F3AB CF4 4 06 1068 MOVL HOST_VE R3 3: Pick > pegs tote wee address 
ee 3088 164 BEQL 3; Non, loop for 
51 FB AS 3 0D68 1650 MOVZWL CORP$W_SLOT(RS),R1 S Pick up the slot index 
FECC 0 OD6C 1651 BSBW MA 3 ac LE the unit 
DO AS B7 ODé6F 163¢ 20$ DECW CORPSW_BOFF (RS) ; Count down the Cates 
E8 18 0D72 1655 BGEQ 10$ 3; Loop for more hosts 
5c 85 3617 OD74 1654 JMP @CDRPSL_SAVD_RTX(RS) =; 


ow 


VO4-001 


40 50 
E388 8F 
OE Al 


04 
13 OA Al 
13.12 A409 
12 AS = 4200 8F 
63 
50 «OA Ht 

1 


09 
20 12 A4 


20 Al (04 Al 
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wooovono 
SENN SSNS SSID DD DS DDD DDD DD DPA AAPA AAA AAA AA AAA AA AAPA AAA AAO 
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er - Emulator 16-SEP-1984 02:00:5 AX/VMS Macro v04-0 Page 
NE oreee1obe $9:4203 EMSCPrSRCSASEP MAR. ° 
-SBTTL = 9 = ONLINE 
peeeeeeererererererereererereeerenaeeteetekeneraneerenere 
b a 
3 #9 - ONLINE . 
° a 
PITIIITITI TILT ITITITti iii tiiiitiiitiiiiiiiiiiiiiiiity 
ONLINE : 
BLBS 0,6 3; If OFFLINE, error out 
BICw #*C<HOSTSET> : Clear non-host flags in the packet 
MSCP$W_UNT_FLGS(R1) 
BBS #MSCPS$V-MD_SH 


DSP,- 
MSCPSW_MODIFIER(R1),10$; Is this a shadowing operation? 
: CASE 1: ONLINE to a single physical unit, no shadowing at all 


33 eee peer 

33; TEMP UNTIL VMS GETS SHADOWING IN MOUNT ;eee 

ee peer 
BBS #MSCPSV_UF _SSMST,UQBSW_UNT_FLGS(R4),20$ ;*** 

sg eee peer 
BITW #<MSCPSM_UF _SSMST!- ; No, check consistency 


MSCPSM”"UF-SSMEM>, = 


UQB$w_URT FLGS(R4S Is the unit involved in shadowing? 


BEQL CHECK ONLINE : No, go directly to ONLINE test 

ROTL 269 MASCPSU_AODIFIER.RO : Yes, set illegal modifier 

BRB 40$ i «ee send invalid end message 
10$: BBC #MSCPSV_UF_SSMST,- ; Is this unit a shadow master? 


UQB$W_ONT“FLGS(R4),70$ — 
: CASE 3: ONLINE to a shadow master unit 


ss aer 


OOOO OOOO O00 09 09 69 69 09 69 09 G9 09 SI NINN NNO OA AAAAAA A UII 


OOO NAUE WN $$ © OOONAU EWN OOO NAUNE WO ODNAUE WP "OOOO 


3: TEMP ieee 
ee Y ;uet 
26S:  =MOVW = MSCPSW_UNIT(R1) ,MSCPSW_SHDW_UNT(R1) pees 
poeee aan 
CMPW MSCPS$W_SHDW_UNT(R1),- ; Yes, now does the virtual 
4 ae, “pps 3 unit match the physical? 
; Yes 
64 30$: ROTL #24, ,@ASCPSW_SHDW_UNT,RO ; No, set illegal shadow unit 
; 40$: BRW ERR_X 
4 508: MOVW UQBSW_SHDW_STS(R4),- ; Pick up the number of members 
5 MSCPSW_SHBW_STS(R1) 
6 BNEQ CHECK ORL INE ; Non-zero, continue processing 
MOVW #<1"MSCP$K_ST_SBCOD>!- 
8 MSCP$K_ST_AVCBL RO ; AVAILABLE, NO MEMBERS 
3 60S: BRW SEND_PKT 
\) : CASE 2: ONLINE to a physical unit to bring it into a shadow set 


39 
1) 


K 15 
mMSCP - MSCP Server - Emulator 16-SEP-1984 02:00: AX/VMS Macro V04-0 Page 
v04-001 - 2 = ONLINE ore 18 4 96:00:33 EnscP eRe MSCP.MAR; 
50 20 Al 80 DBD 1713 70$ MOVW OM ¢PSU_SHDW_UNT(R1) ,RO 3 Pick up shadow ynit 
3 DC1 1714 BGEQ 3 :; Error if sign bit not set 
28 AG B DC3 (1715 CMPW RO ,UQBSW_UNIT(R4) ; Does virtual unit match the physical? 
3 1 dC at BEQL : Yes, error (only true for master) 
—E €1 Ooc9 171 BBC #MSCPSV_UF _SSMEM,- ; No, now is this an existing shadow 
19 12 Ad DCB 1718 QB$w_ONT“FLGS(R4),100$: set member 
24 AG 30 8] DCE 171 CMPW = RO, UQBSW_SADW_UNT(R4) =; Yes, does its shadow master match? 
D ; DdD2 1720 BNEQ ; No, error 
“mas €¢ DDS 1721 80S: ADDL3 rare EXCL_LBA(R1),- =; Now pick up the excluded area 
52 18 Al DD? 17 ‘ MSCP$Q_EXCC_LBC(R1S,R2 
48 AG 3 D1 ODDA 17 CMPL R2,UQB$C_MAXBLOCK(R4S =; Is it beyond the legal Limits 
i518 DDE 1724 BLEGQU CHE Ck ONC INE : No, all is okay 
50 14 18 9C ODEO 1725 ROTL #24, ,#ASCPSL_EXCL_LBA,RO ; Yes, set status 
FB50—Os«311 poe Vf § 90$: BRW ERR_X i; «ee Send invalid end message 
ODE? 1728 ; Physical unit is not already a shadow set member. Now test if it is 
4d Vy 4 ; already ONLINE as a non-shadow unit to anyone. If so, error out. 
0c AS «95 «ODE? «1731 1008: TSTB QB$B_HOST_CNT(R4) ; Is it already online? 
E 19 QDEA 17 § BLSS $ 3; No, allow it thru 
50 FFOOO000 8F D0 ODEC 17 MOVL #*XFF000000,R0 : Yes, this is illegal 
€F 11 ODF 7 4 BRB 90$ : Tell host 
por Vy § 3 Now check status of unit. 
ODFS 1738 CHECK_ONLINE: 
50 B65 pore 1739 TSTW z ; Check status 
24 =««i2 oe ioe BNEQ 30$ 3 AVAIL 
pre Ihe ; Was ONLINE to this host already 
50 0100 8F A8 rere Ho: BISW2 gt ea ae ; Set subcode ‘Already online’ 
13146°CF OF ODre 1746 PUSHAB COPY_CHAR ~ ; Where to go next 
DD OE02 1747 108 PUSH R2 3; Save register 
E280 8F AB QOE04 1748 BICW #NONHOSTSET,=- ; Pick up host settable flags from 
52. 12 Ab O£E08 1749 UOBSW_UNT_FLGS(R4) .R2 > the unit 
5 OE Al 81 OE0B 1750 CMPW MSCPSW_UNT_FLGS(R1),R2 ; Check againts host settable flags 
04 BA OEOF 1751 POPR #*M<R25 3; Restore, but leave CC set 
09 13 = «9€E11 aT BEQL ; ALL okay, fill in info 
3 d5 el? 175 TSTL (SP)+ ; Remove return address 
eo @& Y 9C OE€15 1754 ROTL #24 ,#MSCPSW_UNT_FLGS,RO ; Set secondary status 
FB1B. ss si? 103? BRW ERR_X 3 ee. send invalid end packed 
05 Gee 1787 20$: RSB 
18 1735 ; Was AVAILABLE, now turn ONLINE 
OE AS «BS «COEID «1761 $0$: = TSTw QBSW_STATUS(R4) ; Check the actual unit 
02 #1 E 8 1796 BNEQ 5$ 3; No other host has it online, skip 
D 1 E 176 BSB8B 0$ ; Test unit elope 
0 E E24 1764 358: BBS #MSCPSV_UF_SSMST,- ; If shadow master unit 
6F 12 A4 é $ 1765 UOQBSW_ONT“FLGS(R4) 50S ; skip the physical online stuff 
2 EA 9A OE 1766 MOVZBL HOQBSB PEC CR oR2 > Pick up host slot number 
14 3406 5 60 E2D 17 8 R2 yaa L_HOST ONLN(R4),40$ ; If host online bit set, MOUNTVER 
Oc A4 E 1768 TSTB ae B_HOST_CNT(R4) : Test count of online hosts 
61 18 OE 176 BGEQ 0$ ; Skip UCB & packack, if already done 
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-* cP Server - Emulator 16-SEP-1984 0: AX/VMS Macro v04-0 Page 41 | 
- = ONLINE or SEE] abe 96: 92: 33 EnscPe SRCJMSCP.MAR; ° (1) ) 
52. 30 AG 0 E37 1770 MOVL UQBS$L_UCB(R4) ,R ; Pick up UCB address | 
OAE C 6 OE3B 44 INCB UCBSBONL CNT (Rg ; Increment the oot ite count 
01 OAE f 91 OE3SF 17 § CMPB YA gS OMLCHT CR »,#1 s Is it already ONLIN | 
1A OE44 177 BGTRU ; Yes, do not issue + SE PACK_ACK 
80 4] 1774 40$: MOVW #10$ PACKACK!- ; Set function to PACK_ACK 
E47 1775 I10$M_INHERLOG,- 
CO AS ©0808 BF E47 1276 CORPSW_FUNC(RS) 
10 88 OE4C 177 BISB #uQBsm_SEQ,- ; Set the sequential flag 
2B AG EGE 1778 UQB$B-FLAGS(R4) 
—E8 AS OE OES5O 177 INSQUE conrst UQB_FL(R5),=- : Insert on unit queue 
64 B4 E53 1780 auaBsC CORP _BL(R4) 
50 A4 6 E55 1781 INCW UQBSW_NOM_QUE(R4) ; Account for it 
FES E58 17 ¢ BSBW 1§ ie : Do the 10 
53 SGA D OE5B 17 MOVQ CORPSL_FR3X(R5),R3 ; Restore HQB & UQB address 
10 8A OESF 1784 BICB #UQBSM_S ; Clear the sequential flag 
2B AG £61 1785 UOB$B “FLAGS (R4) 
51 BOAS DO OE63 1786 MOV CORPSL_ “WSCBUFRERS) , R1 ; Restore message buffer address 
pees 1787 ; 2722 bug trap 
2B 4613 «#(OE67 «(1788 E 47$ ; Bug trap 
0E69 1789 ; 27? end bug tr 
0E69 1790 ASSUME MSCPSK_ST_SUCC EQ 0 
2c 50 E8 QE69 1791 BLBS RO, 3; Success 
OOF4 8F 50 61 OE6C 1738 CMPW RO, #SS$_ILLIOFUNC : Error, was it illegal function 
25 13 OE71 179 BEQL 50$ ; Yes shee because drive not support 
52 30 A4 00 OEF73 1794 MOVL § UGBSL_UCB(R4),R2 : Pick up UCB address 
OOAE g¢ 97 OE77 1795 DECB UCB$B-ONLCNT(R2) ; Drop the online count 
0254 8F 0 B61 OE7B 1796 CMPW RO,#SS$_VOLINV : Is it volume invalid? 
OC 13 OE80 1797 BEQL 4 3 Yes e error to mscp error 
01A4 8F 4650—sé#Bd OE Be 1798 CMPW =s- RO, #SS$_MEDOFL : Is it medium offline? 
0S 13 OE87 1799 BEQL 45$ : Yes, Pees error to mscp error 
50 0B 00 OE89 1800 MOVL #MSCPSK_ST_DRIVE,RO ; Make the error fatal drive error 
03 «17 pest 138) BRB 46$ 
50 03 4 Se ee 1808 45$: MOVL #MSCPSK_ST_OFFLN,RO 3; Substitute MSCP error status 
FC40 1 oe?) Ise 46$: BRW SEND_PKT : and leave now 
a4 1306 47$: BUG_CHECK MSCPSERV,FATAL ; HQB invalid!!! 
50 D4 0E98 1308 50$: CLRL RO 3 Set success status (ONLINE) 
52 16 AS 9A gEDA 1809 MOVZBL eeee VEC(R3) ,R2 Pick up host slot number 
03 34 A4 52 2 AH} 1810 BBSS UQBS$L_HOST_ONLN(R4), 66s : Set host online bit - unit 
oc AG 696 OEA 1811 INCB paé$e HOST _CNT(R4) ; Bum the host online count 
52 FB8AS 3C OEA6 1 1 60$: MOVZWL ate SL OTtRS) © R2 up unit slot num 
0010 a3. 52. «~E2 ~OEAA 181 BBSS OBsi UNIT_ONLN(R3), ris": “Tet unit-ent tae bit 10 best 
OE AG BG EAE 14 7 70$:  CLRW uaéeue STATUS (R4) ; Set ONLINE status in unit | 
EB2 1 1g; 3; Physical 10 to unit, if any, done. Now check if any post processing 
. : ! : needed - shadow physical units only. 
09 €0 OEB2 1 18° BBS — UF _SSMS Leave now if shadow master unit 
05 12 a4 EB4 1820 w ONT “Pres tha, cCHAR 
EO OEB7 1821 BBS wusersyn MD-SHDSP Leave now if not shadowing 
03 0A Al —B9 1 : MSCPSW-MODIF IER(RI) , CASE2A 
0455 31 OFBC 1823 CCHAR: BRW COPY_CHAR 
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-SBTTL = Shadow units 


; CASE 2: Deal with the shadow unit 


CASE2A: 
CMPB =: UQBSB_HOST_CNT(R4),#1_—; 
BGEQU CCHAR 
PUSHR #*M<R3,R4,R5> : 


does not. We will create a new UQB for 
will return an error code. 
MOVZWL MSCPSW_SHDW_UNT(R1),R2 


VL 
BICL3 #*C<<laMSUSK_UNIT_ s12>-15, 
MOVL UNIT VECER4]>R2 


BEQL 
CMPW MSCP$W_SHDW_UNT(R1),- 
UQBSW-UNITTR2) ; 
BEQL OLD ua a6. 3 
10$: BSBW FIND SLOT : 
BGEQ OLD_0aB 3 


; No match in table. Find an empty slot. 


; MOVZWL MSCPSW_SHDW gUNTCR TDR 
BICL3 #*C<<1SMSUSR UNIT '315-13,.R 
MOVL NIT. VECER3]—R ; 


ADDL #MSUSK nex XMAS R3 
MOVL UNIT VECCRS 


NEW_0QB : 
MOVL H<ZEHsUse an A pel to=t. R3; 
0$: MOVL UNIT AVECCR : 


0$: BEQL 
DECL 
CMPL 3, #MSUSK_MAX_UNIT 
BGEQ 208 


A this unit is already ONLINE 
hen leave now 
Seve some registers 


Look up the shadow unit. If it exists we will do some checks, if it 


it. If there is no space we 


. too up shadow unit from command 
Re, “Re 
: ioe 


Slot 
k for po block in slot 


: ere is it a match? 


: No. try more probing 
; Found unit 


; Pick up a unit from command 


R2,R3 ; 
ee for mit block in slot 


: Yee 4" second probe 
Look for unit block in slot 


Emp 
a A search 
ick up unit 


mpty 
; Loop thru 
; Reached end? 


; No, try again 


: No slots left in the unit table. Return an error 


CASE2A_ERR: 
MOVW #<S*MSCP$K_ST_SBCOD>!- 
MSCPSK_ST-CNTLR.RO ; 


CASE2A_ERR_OUT: 
POPR | #*M<R3,R4,R5> ; 
BRW SEND_PKT 


Existing UQB, check characteristics 


7 dtp _UQB: 


= 
o 
<= 
— 


4(SP),R4 

CMPL - UQB$L_ MAXBLOCK(R4) ,- 
YOpsc_ MAXBLOCK (R25 

BNEQ 10$ : 


Insufficient resources 


Restore registers 


; Recover ph sical unit UQB 


Check maxblock 
Failed 


ecniesiensensaneiasenanetas Set = 
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v04-001 Shadow units $- -SEP- =}382 96:00:38 ERscP. SRCJMSCP.MAR; . (1) 
AS D1 OOF 1 CMPL UQBSL_MEDIA_ID(R4),- : Check media_id 
3 Ag ' F ; § eee, oBsC A EDIA_ID(R2S a oe 
3; Okay, continue 
50 0105 SF BO OFS? 1885 108: ROH BeReMSCPSK ST. sBCoD>!- . 
FSC (1 $ MSCPSK_ST =AFATE RO ; MEDIA FORMAT ERROR 
E2 11 : ‘ ! . BRB CASE2A_ERR_OUT 
; 4 ! BB 3 Update fields for shadowing 
6A2 86 OFSE 1891 508: — INCW UQB$W_SHDW_STS(R2) ; Bump the count of units 
BA BO OF41 1 3 MOVW UQB$W"UNITTR2),- ; Copy virtual unit number 
24 AG F44 189 UQB$@_SHDW UNT (R4) ; to physical unit's shadow unit field 
0 E2 ot 1894 BBSS meter UF __SSMEM : Set shadow set member flag 
00 12 A4 F4 1895 WONT. TELGS(RGD, 30$ 
é AG B81 OF4B 1896 30S: CMPW ubsee “Ont : Is this unit number smaller than 
4 A2 OFSE 1897 tt aioe ONE CR2) ; any any in the shadow chain? 
OE 1E& OFSO 1898 BGEQU § 40$ ; No, $ 
8 AG BO ore 1899 MOVW UQB$W_UNIT(R4) 3 Yes, “update the field in shadow 
4 A2 F55 1900 UOBS@_SHDW_UNT (R2) ; master unit field 
0 A4 00 aH 1901 MOVL voBst OCB(RZ),- : Update the field in shadow 
30 A2 FSA 1306 vaBsC_UCB(R2 3; master UCB field 
78 A2 «54 «DO OFSC 190 MOVL R4,UQBSL_SHDW_LOW(R2) ; Update the lowest unit pointer 
78 AG «=6552~—~Ciéi oro? 130e 40$: MOVL R2, -UQBSL— SHDW_MST(R4) ; Set pointer to shadow master 
OF Oe 1308 3 Link this physical UQB into shadowing ring 
50 62 DO OF64 1908 MOVL © UQBSL_SHDW_FL(R2),RO Start with RO-->first entry 
52. 50 00 OF67 1909 MOVL R : Copy 
52 04 A2 DO OF6A 1910 50$:  MOVL  UQBSL_SHDW_BL(R2),R2 ; Get next entry 
52 50 D1 OF6E 1911 CMPL RO,R2 3; End of the tine? 
07 13 OF71 1316 BEQL 6 ; Yes 
28 AS «BT SCOéOOF73—s«191 CMPW UQB$W_UNIT(R4), : Conpare unit numbers 
28 A2 gree 1914 QBs0_ UNIT-UQ8SL_ SHDW_ FLCR 2) 
FO 1F OF78 1915 BLSSU. 5 ; Current is still higher than target 
62 64 OE OF7A 1916 60S: INSQUE UQBSL_SHDW_FL(R4),(R2) ; Insert ahead of this unit 
0009 «= 31 oF7p + af BRW CASE2A_DONE : and leave now 
ores 1919 ; No existing UQB, create one 
OF80 1920 ; 
OF80 1921 ; Rl ==> MSCP p 
_OF80 19 § 3 R2 = Shadow —T number 
OF80 1923; R3 = Shadow slot 
OF80 1924; 4 ==> Ph Physical Oe UQB 
re 1925 : (SP)-=-> H 
F 1926 ; 
4 1927 NEW_UQB: 
OE 6B OF 1928 PUSHR #*M<R1,R ; Save registers 
22 Al Be ree 1929 CLRW MSCPSW_ “C06 SPD(R1) 3 ignore copy "pred, field 
51 9C 8F A OF 1930 MOVZBL #UQBS$C~LEN,R1 3 of unit 
F6C8 30 OFB9 1931 BSBW ALLoO ac’ ; Go get it 
06 50 3 F8C 19 § BLBS 3! 23 3 Okay 
5E oc ¢ FF 19 ADDL 3 Clear off registers 
FFB6 31 F 19 4 BRwW w5ik st ERR : Error out 
3.6UC<( SCD £3 1986 110$:  MOVL R2,R5 ; New UQB pointer 
50 08 AE a4 F98 133 MOVL 8(SP) ,RO 3; Restore slot munset 
53 OC AE FOC 1938 MOVO = 12(SPS,R3 : Pick up HOB & U 
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Shadow units 


1118: 


ASSUME 
MNEGW 
MOVW 
ASSUME 
CLRW 
MOV 


16-SEP-1984 02:00:53 VAX/VMS M v04-0 
tet 6: 4:92 YmMScP SRC MSCP_MAR: 


Page 44 
. (1) 


ap noes UNIT water adhe te ; Set a ‘online’ bit 
8 UNIT VECCRO ; Stuff it where it belongs 
R4, (R2)F : Set Link to first UQB 
(R2)+ ; Clear out unused 
R1 Sa Ly ; Set size field 
#<BYNSC_SCS_UQBa8>!- =: Set type 

DYNSC_SCS,TR2)+ 
VQB$B_AOST.CNT EQ 12 

1 shea 3 3 Set initial HOST_CNT, AVL 
#MSCPSK ST_AVLBL,(@2)+ : Set STATUS to AVAILABLE 
ua $u_MOLTIUNT EG udesB_HosT CNT +4 

: Set un 

#<MSCPSM_UF_REPLC!- ; Set flags - Controller Bad Block 

MSCPSM_UF_SSMST>,-= $ - Shadow set master 
(R2)+ 3 eee in the unit block 
(R2)+ ; Clear out reserved 
UQBSQ_UNIT_ID EQ UQBSW_MULT_UNT+ 

)+ ; CTear low 32 bits of unit id 

#4,-1(R2) ; Set MSCP class code 
UQBSL_MEDIA_ID EQ UQBS$Q_UNIT_ID+8 
UQBSL_MEDIA_ID(R4),(R2)*; Media ID 
UQB$W_SHDW_ONT EQ UQBSL_MEDIA_ID+4 : 
UQB$W_UNITTR4), (R2)+ ; Shadow unit (lowest phys unit) 
UQB$W~SHDW_STS EQ UQBSW_SHDW_UNT+2 : 
#i,¢ + Shadow status (number of phys units) 


R ; 
UaBSw UNIT EQ UQB$W_SHDW_STS+2 


4(SP)>(R2) ; Set in unit number 
QBSB_SLOT EQ UVQBSW_UNIT+2 

(SP), (R2)+ ; Set in slot number 
(R2) ; Shadow count 


+ a 
UQB$L_VOL_SER EQ UQBSB_SLOT+2 
(R2)+ ; Clear volume serial 
UQB$L_UCB EQ UOBS$L_VOL_SER+4 
UQB$L_UCB(R4), (R2)F ; Set UCB pointer 
(R2)+ ; Hosts online 


#*X5306,(R2)+ ; Length 
#°A7HADO/ «(RD + 

#*A/W /.(RO)4 

(R2)+ 


(R2)+ 
UQBSL_MAXBLOCK £Q UQBST_NAME+16 
UQBS$L-MAXBLOCK(R4),(R2)7; Maxblocks 
UQBSL-START_LBN EQ UQBSL_MAXBLOCK+4 
R2)+ > Start LBN 
ya $u_NUM_QUE EQ UQBSL_START_LBN+4 


. gounes 
UQBSL_FENCEL EQ UQBSW_NUM_QUE+ 
(R2)+ ; Fence low and high 
SL_CDRP_FL EQ UOBSL_FENCEL+8 
2) ; Executing CDRP que head 


+ 
CKQ EQ UQBSL_CDRP_FL+8 
; Blocked CDRP que head 


+ 
EQ UQBSQ_BLOCKQ+8 : 
; Special holding que head 
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+ + - MSCP Server - Emulator at tb 4 9 00:33 a Macro Vv04-0 Page 
v04-001 > Shadow units -SEP-1984 14:0 MSCP.SRCIJMSCP.MAR; 
101D 1298 ASSUME yous tee LOW EQ UVQBSO_ SHO+8 
82 54 00 101D 199 MOVL RG Set lowest phys unit 
1 199 ASSUME uagsu. NUM BLK EQ UOBSL_ show Lowes 
82 Ds 1 199 CLRL (R2) 8 ocked counts 
1 4 ASSUME Sf : UNIT EO UOBSW_ NUM. BLK+ 
Bg 7c «(1 CLRQ ; inte que head 
7C 1024 20 § CLRQ tr Ns 
264 AG 04 A 8 1026 MOVW aU QBSW_SHDW_UNT(R4); Set phys unit shadow unit field 
78 AG OS DO 1028 4 MOVL SL at + ; Set pointer to shadow master 
OF €2 102F 5 BBSS Fagte _SSME Set shadow set member flag 
00 12 ad } 5 yaesu Vout “Figstha), 1208" 
: 2 o8 ; Now Link shadow UQB into unit chain 
51 F048 cf De 1034 2010 1208: MOVAL UQB_LIST,R1 ; UQB List head 
50 1 D 1039 11 MOVL ; Copy 
51 04 A1 DO 1 1 1308: MOVL 4(R1),R1 ; Get next entry, backwards 
51 20 D1 104 1 CMPL RO,R1 : End of the Line? 
0 13° 104 014 BEQL 140$ 3; Yes 
AB Al 04 AE B1 1045 A CMP 4(SP) ,UQBSW_UNIT- - 
104A 18 yopsa_ UNITO(R1) ; Compare unit number 
4 1F 104A 4 BLSSU 150% ; Current is still higher than target 
61 0080 C OE : of B18 140$: INSQUE UQB$Q_UNITQ(R5),(R1) : Insert ahead of this unit 
’ 3] 5 Y ; Send AVAIL attention message announcing the new shadow unit 
52 55 4 1051 20 ¢ MOVL R5,R2 ; Transfer UQB 
F481 0 1054 20 BSBwW SEND_ATIN ; Send the attn message 
OE BA : 3 8 ; POPR #*M<R1,R2,R3> ; Restore registers 
1059 20 § CASE 2A_DONE 
38 BA 1059 3 POPR #*M<R3,R4,R5> 
22 Al B65 1058 8 TSTw MSCP$W_ COPY *SPD«RI) ; Is this a shadow copy 
05 12 1 3 029 BNEQ _COPY ; Yes, go do it 
50 e 106 030 CCX: CLRL ; Set success statu } 
O2AF 1 1062 2031 BRw COPY_CHAR ; Transfer the ONL INE information 


V 
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vas 
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- MSCP Server - Emulator 
= ONLINE shadow copy 


! ° ; - SBTTL 
106 5: R1 ==> 
106 § $ R4 ==> 
106 3 RS ==> 
1S. SB 
00024 106 “9 WRT_UQB 
0000008 1 ‘ 4 RED-UQB 
0000002C : rt: MST_UQB 
106 44 ONL_COPY: 
20 BA 106 45 BICcB 
FA A 1067 4 
OC AG) 695) = 1069 4 TSTB 
+ 14 ee 8 BGTR 
1 8B 106 4 BISB 
2B AG 107 050 
33 51 pdO 107 051 MOVL 
8 A 54 pO 107 O36 MOVL 
0 3 AS OF 1079 5 REMQUE 
AS OB? 1928 54 DECW 
0088 c4 8655 «62=#00 (1 +t! 55 MOVL 
54 AS 600 = 108 036 MOVL 
2C a2 «54~—SCOD i} 24 TH MOVL 
198 059 ; Handle the 
108D 2060 ; 
51 18 ag DO 1998 61 MOVL 
50 14 A D 1091 $6 MOVL 
oY 12 1095 6 BNEQ 
1C A2 1 g 1097 2064 MOVL 
1FF 0 1098 2065 BSBW 
10 «+11 198 B66 BRB 
1C ag D4 10A 068 10$: CLRL 
51 2 CO 110A 069 ADOL 
48 A4 1 D? 10A6 079 CMPL 
04 if ee, 71 BGEQU 
Sie oy le 
0c a2 50 O09 78 108 74 208: ASHL 
108 75 ; 
1 1 : 
1 77; 
1088 $079 
50 Aé 85 1 0 $0$: TST 
09 1 1 1 BEQL 
- ? 88 ! : § B1SB 
1 , BLOCKH 
F2 11 : ; 5 BRE 
01 88 10C § 40$: BISB 
$8 AG 10¢ 3 
51 4 a2 00 10¢ MOVL 


If there are we must block the cop 
; and wait for the last 10 to wake t 
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vv 
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MSCP.SRCJMSCP.MAR; (1) 


- ONLINE shadow copy 


MSCP packet 
UQB of ag Ogee unit 
CORP for ONL command 


: 


#acoRPsy NWS TBUF , = 
CORPS$B_FCAGS(RS) 
Yee S8 HOST _CHT (RA) 
#UQBSM_SEQ,- 
YOBSB_FLAGS(R4) 


R4-WRT_UQB(R2) 


RS) ,RO 
BSW Rum GUE(RS) 
R5,UQB8$i_CPY_CDRP(R4) 
UQBSL_SHBW_MST(R4) ,R4 
R4,MST_UQBTR2) 


excluded block area 


MSCPS$W_EXCL_LBC(R2),R1 
" CPSLIEXCLLBACR )RO 


R1,MSCPSL_LBN(R2) 
GET_MAx_BCOCK 
MSCPSL_LBN(R2) 

R1 ,UQBSL_MAXBLOCK(R4) 
208 


#UQBSM_2PASS,- 
OB$B FLAGS ( 


Clear special flag 


Is it already online and copied? 

Yes, leave with success 

Set seq mode on write as He oe 
unit = lock 10 until this is done 

Transfer MSCP packet pointer 

Store the write UQB 

Pull CDRP off physical unit que 
and show it ; 

Save a pointer to this cdrp 

Get pointer to shadow master 

Store the shadow master UQB 


Pick up count 

Pick up exclude address 
Non-zero 

Set as starting address 
Find the maximum block 
Go set the byte count 


Set to start at beginning 


Find end of exclude area 
is it the end of the disk? 
es 


set a flag for later 


R4) ; No 
#9,RO,ASCPSL_BYTE_CNT(R2) ; Convert to number of bytes 


Now check that there are no I0's in 


YORSU_NUM_QUE (RA) 
0$ 


#UQBSM_SEQ,- 
UOB$B~FLAGS(R4) 


30$ 


#U0BSM_CIP,- 
UQBS$B~FLAGS(R4) 
WRT_UQB(R2),R1 


rogress on the shadow uni 
y DR set sequential mode 
e CDRP. 


"e 
(rundown) 


; Check the shadow master for 10 


; None, all ok 


a 
Set Sequential mode while waiting 
10 in progress, rundown and wait 


; Set the copy in progress flag 
; Write UQB pointer 


- MSCP Server - Emulator 197 3Ee- 138% 0: 9:33 orth Macro V04-0 Page 47 
- ONLINE shadow copy -SEP-1984 714:0 MSCP.SRCJMSCP.MAR; (1) 
88 10CB 9 B1SB #UQBSM_CIP,- ; Set the copy in progress fla 
19¢D UOBSB~FLAGS(R1) . ‘ 
} } 95 ; Start of read/write loop 
1OCF 2095 ONL_LOOP: 
10CF 96 ;: BBS #CORPSV_ABORT,- 3; Leave if aborted 
10CF 97 ; CORPSB_FLAGS(R5S) ,90$ 
BA 10CF 3 BICB #UQB$M_SEQ,- ; Turn off sequential mode 
1 D4 9 yaese FLAGS (R4) 
8 10D 100 MOVW #10$_READPBLK,RO ; Set up for read 
1 06 101 BSBw SETUP 3; Common set up 
DO 10D 1 § MOVL CORPSL_MSGBUFX(RS),R2 ; Refresh MSCP pecker pointer 
1) 1000 1 MOVL CORPSL_UQ 5),- ; Pick up read UQB 
} : } : RED_UGB(R2) i: and refresh the copy 
106 106 ONL_READ 
O¢ BO 10€ 1 #10$_READPBLK,=- ; Set up for read 
COA 1064 2108 CORPS$W_FUNC(RS) 
52 B0A5 DO 1066 2109 MOVL CORPSL_ASGBUFX(RS5),R2 ; Refresh MSCP packet pointer 
54 28 A2 dO ipee 110 MOVL RED_UQB(R2) ,R4 ; Pick up reid UQB 
C4 AS 54 DO 10EE 2111 MOVL  R4,CORPSL_UQB(RS) : Stuff it in CORP 
30 AS) «iO s«d10F 118 MOVL  UQB$L_UCBTR4),- : Refresh the read UCB 
C AS 10F5 211 CDRPSL UCB CRS) 
54 C Ag DO i 114 MOVL MST yest ) : Pick up shacow master UQB 
468 AS) 00 10FB 2115 MOVL  CDRPSL_LBN(RS),~ ; Stuff the starting fence Lbn 
38 A TOF 116 UQBS$L~FENCEL (R4) 
50 o2aS F er 78 110 11 ASHL #-9,CDRPSL_BCNT(RS),RO ; Pick up the byte count 
58 AG 0 C1 1106 2118 ADDL3 RO,UQBSL_FENCEL(R4),- ; Caclulate the high fence 
5C AG 110A 119 yaBst ENCEH(R4) 
D6. AS 02 90 110€ 2120 mMOVW #2, CORPSW_STATE(RS) ; Set the state 
094A 0 111 121 BSBw DO_DISK ; Set up fro disk transfer 
04 £O 111 1 § BBS #CBRPS$V_ABORT > ; Leave if aborted 
FA AS 1115 31 CORP$B~FLAGS(RS) ,- 
28 1117 2126 ONL LOOP CHK 
COA B4 1118 2125 CLRW CORPSW_FUAC(RS) ; Allow modifier in error routine 
03 50 8 1118 21 § BLBS RU,ONL_WRITE 3; Success 
00E8 1 pL ! BRw ONL _PEAD_ERR ; Attempt to recover the error 
i ! } : ; Read has finished, now switch some parameters for writes 
1121 2131 ONL_WRITE: 
06 AB 1121 1 § BISW #10$_WRITEPBLK,- ; Set up for write 
COA 11 ; 1 CORP$W_FUNC(RS) 
52 8 AS 00 11 134 MOVL CORPSL Msgpue CRS) .R2 ; Grab the MSCP packet pointer 
54 4A2 DO 1129 2135 MOVL WRT R2),R 3; Now get the write UQB 
C4 a5 54 DO 112d 21 6 MOVL 4, CORPSL_UQB(R5) : Stuff it in CDRP 
30 AS «=O «1131+=«1 MOVL 6$L_UCBTR4),- : Transfer the write UCB 
BC AS 1134 21 : CDRPSL_UCB(RS) 
D6 AS 4 g 1136 21 MOVW #4, CORPSW_STATE(RS) ; Bump the state 
x 8 113A 2140 BSBW DISK ; Do the disk transfer 
0 5 113D 2141 BLBS RO,ONL_LOOP_CHK ; Success 
0106 1 142 148 BRw ONL _WRITE_ERR ; Error out 
114 144 ; Write has finished, now check if need to loop again or possibly 
i 122 ; wait for a pending write. 


- MSCP Server = Emulator 16-SEP-1984 :00:5 AX/VMS Macro V04-0 Page 
= ONLINE shadow copy eit Y 96:00:33 ERSCP SRCSASCP MAR: ° 
1143 2147 ONL_LOOP_ CHK: 
gO A DO 114 18 MOVL CORPSL_MSGBUFX(R5),R2 ; Grab pointer to MSCP packet 
§ A D 114 14 MOVL MST yeas ),R4 3; Pick up master UQB 
D2 a5 OC 114 0 ADDL CORPS BENT (RS), = : Cale accumulated bytes xfer 
06 €1 #11 1 § BBC #CDORPSV_ABORT,- ; Leave if aborted 
03 FA AS 11 1 CORPSB_FLAGS(RS),5$ 
0111 31 1 123 BRW ONL_ABORT_ERR 
EO AS c3 «11 138 5$ SUBL3 CDRPSL_ABCNT(RS), - 
115€ 215 cORP C_OBCNT(RSS,RO =; Cale how much Left to do 
6 1 1125 138 BLEQ 30$ 3; None, we are finished 
F7 8F 78 116 1 ASHL #-9, CORPSL ONT CS) 3; Select the correct disk block 
48 AS CO 1166 2160 ADDL  CDRPSL LENTR ),R1 ; Compute next start LBN 
51 DO 116A 2161 MOVL  R1,CDRPSL_LBN(AS) : Store it away 
D2. AS D1 1165 16¢ CMPL  CDRPSL_BCAT(RS),- : If the bytecount has been reduced 
B4 AS 1171 16 "a _BUFLEN(RS) ; _as a result of error recovery... 
05 if a 164 BGEQU $ 3 en 
B4 AS DO 117 165 OVL CORPSL_BUFLEN(R5) ,- ; Set it back to original 
D2 AS 1178 146 CORPSC_BCNT(RS) 
50 D1 117A 2io/ 108: CMPL RO, CORPSL_BCNT (RS) : If piece left less than BCNT 
5 08 1160 189 aOVL iene BCNT(RS) : Us “rw os 
; Use it 
21.11 1184 176 20$: BRB 60$ . 
1186 176 ; Finished all the copy specified in the packet, now check if a possible 
+3 We 3 second pass is needed because the exclude area is in the middle of the disk. 
02 €4 1186 2175 30$:  BBSC  #UQB$V_2PASS,- ; Skip if no second pass needed 
03 2B A4 1188 2176 UQB$B_FLAGS(R4) ,50$ 
0053 ~=«31 Vie a4 40$: BRW _FIAI 
14 A2 7D 118 155 50$: MOVa MSCPSL_EXCL_LBA(R2),RO ; Pick the exclude parameters 
50 cO 119 180 ADDL . : starting LBN after exclude area 
51 0 119 181 MOVL R1,CORPS$L_LBN(RS) ; Put it in CDRP 
0101 30 1199 188 BSBW GET MAX BLOCK : Find the maximum blocks to copy 
09 78 119¢ i ASHL #9,R0,R ; Convert to bytes for next copy loop 
50 DO 11A0 2184 MOVL RO. CDRPSL_OBCNT(RS) : Store in IRP 
EO AS 4 11a 5 CLRL — CDRPSL_ABENT(RS) : Reset accumulated count 
11A7 21 ; ; Another round is needed. Check if there is a write pending, if so 
11A7 2188 ; stall the copy and do the write. At the end of the write, the copy 
Bf 133 3; will be restarted. 
11A7 134 : RO = Poytes left to copy 
11A7 136 : Ri = LBN to start copy at 
yar 132 : R4 --> Master UQB 
03 E€4 11A7 2195 608 BBSC  #UQB$V_CMDPEND,- : Go around again if no write pend 
03 2B AS 11A9 196 UQB$B~FLAGS(R4) , 708 
FF33 31 Ae Bh ONL _READ 
50 DO IAF 199 70$ MOVL RO,MSCPSL_BYTE_CNT(R2) ; Update copy in packet 
4 D 1183 9 MOVL R1,MSCPSL-LBN(R2) ; Ditto 
1 —E 118 MNEGL oh abst FENCEL (RS) ; Set special value for tests in SETUP 
10 CF ; 1108 § MOVAB ONL Looe CORPSL_FPC(RS) ; Store resume p° nt aoe 
-2t8,” ; Set sequential mode while waiting 
10 88 11C¢ BISB #udB$m sea 5 i de whil 


MSCP - MSCP Server = Emulator 16-SEP-1984 02:00:5 AX/VMS Macro v04-0 Page 49 
v04-001 = ONLINE shadow copy $: ets 9 96: 0:33 EMSCP_ SRC MSCP.MAR; (1) 
2B AG 11C 4 UQB$B PL Bes (nse 
Bors 30 Vit 5 BSBW BLOCK_COR ; Block the CDRP 
ye $i ; Now empty the special holding queue. 
11¢ § Empty. SHO: 
50 70684 OF i11C 10 REMQUE @UQB$Q_SHQ(R4) ,RO ; Remove from special que 
is 1D 11CC 11 BVS ; None, leave 
55 118A DE 11C \¢ MOVAL CDRP St FO 
11D 1 fORP C 08. FL(RO), RS ; Set new CDRP ptr 
54 bp 11D 14 PUSHL ; Save old UQB 
53 10 A? D 1104 15 mOVaQ CDnPs, FR3(R5),R3 ; Restore old context 
0c 8 18 1108 1 JSB acDRP C_FPCCRSS : Finish off the pkt 
4 BEDO 1108 1 POPL ; Restore old UQB 
e€8 11 1126 18 BRB eRPTY _SHQ ; No, get next command 
05 Ht: Y 10$: RSB ; Finish this thread 
11€1 § 3 oat copying is done. Clean yp status flags and do the copy of # yh pins 
11€1 : At this point the CDRP is still queued to shadow master U We must 
11€1 & ; remque it, and adjust other fields so this CDRP looks Like it was on 
11€1 5 ; the physical unit que. 
11E1 § 
1161 ONL _FINI: 
50 D4 el 3 CL RO ; Set good status 
1183 QO ONL_FINIX: 
50 DD IIE 1 PUSHL RO ; Save status 
50 €8 AS OF 11€5 ; REMQUE CDRPS$L_UQB_FL(R5),RO 3; Strip it from que 
60 D4 11E€9 CLRL (RO) ; show it not queued 
50 a4 7 11€6 4 DECW UQBSW_NUM_QUE (R4) 3: and a, or it 
on 0 ies 5 BSBW CLEAN Y P_ONLCPY ; Do a clea 
D 10 11F § BSBB MPT Y SHO : Finish off and held commands 
32 8EDO 11F3 POPL 0 ; Recover status 
51 BOA DO 11F6 8 MOVL CORPSL_MSGBUFX(R5),R1 ; Recover MSCP pointer 
54 24 A1 DO IFA 9 MOVL WRT_UQB(R1) sand write unit UQB pointer 
78 aS =54~~—«COD IIe 40 MOVL RG CORPS _MST_UQB(RS) =: Stuff it CDRP 
0088 (4 p 120 41 CLRL UQB$L_CPY~CDRP(R4) : Clear out pointer 
0108 1 1206 42 BRW COPY CHA ART ; and leave 


+1 . 7: erver = Emulator 197-360-1386 96:00:33 ys Macro V04-0 Page 7, 


HANDLING 4:02 CMSCP.SRCJMSCP.MAR; 
-SBTTL = ERROR HANDLING 


C 
RRO 


> 


oe 
+ 


Read error recovery for bad blocks. First we attempt an ordinary read 
read repair operation. That operation can return with four cases: 


1) RO = SSS$_NORMAL: Read partially succeded, up to a parity or 
forcederror, but all blocks before the one in error have 
been successfully read into our buffer Continue the loop 
and write out the good blocks to the target unit. The next 
read will either succeded or will encounter a forcederror/ 
parity error Yameqjatety on the first block. If the latter 
then we retry until success or no more units. If no more 
units we will return here with SSS_PARITY or SS$_FORCEDERROR. 


2) RO = SSS_SHACHASTA: An unrepairable, fatal error occurred on one 
of the source units or the target unit. We abort the copy 
operation, failout the offending unit, and report to host. 


petelelelelelelealeleleleleloleolelololal elo Map [7] 
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3) RO = SSS$_PARITY: This error means we have a parity error in the 
same LBN of all the source units. We then just write out 
one block of whatever is in the buffer to the target unit. 
Hopefully, the host's file structure will be able to deal 
with this crazy block. After the one block write, we continue 
the normal loop. The shadow set remains intact. 


SS$_FORCEDERROR: As case 3 above, only the block is written 
out with a FORCERR modifier. The host's file structure will 
eventually catch this. 


09 65 


4) RO 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee hl 
So 
oOo 
~ 
td 


09 74 
ie 
4 4 -ENABLE LSB 
09 2279 ONL_READ_ERR: 
50 AS FEDS _CF 43 09 80 MOVAB ONL_READ,CDRPSL_FPCX(R5); Where to send blocked reads 
390 «(3 OF 1 BSBW READ REPAIR ; Attempt read repair 
17 50 «EY 12 ; BLBC RO, 108 ; A failure of some sort. 
52 BOAS 00 1 MOVL CORPSL_MSGBUF X(R5) ,R2 ; Refresh MSCP packet pointer 
C4 AS =O 19 4 MOVL CORPSL_UQB(R5),- ; Pick up new read UQB 
28 ag 1¢ 5 RED_UGB(R2) 3 and refresh the copy 
5 DD 1 § PUSHL R5 ; Save R 
54 2C A2 8 MOVL MST_UQB(R2) ,R4 ; Pick up master UQB : 
FO4E 8 BSBW = DRATN_BLOCKG > See if anything blocked while repair 
55 8EDO 7 9 POPL R5 ; Restore R ; 
1A so "3 + BRB 308 ; Repair succeded, continue 
; 35 ; Either PARITY or FORCEDERROR. Set up for a one block write. 
O1F4 8F «650 «BI ¢ 94 10$:  CMPW RO, #SS$_PARITY ; Is it parity error? 
» WW 95 BEQL , ; Yes, adjust buffer 
2144 BF 0 sf ; 9 CMPW a #SSs_FORCEDERROR ; No, is it forced errro? 
6 3 9 BNEQ 40$ ; No, real nore error 
01 F. § A 38 MOVW #10$M_FORCERR,- ; Set for writing forced error 
AS ; 4 CORPS FUNC (RS) 
D2 AS 0200 BF 3C 4 00 208: MOVZWL «#512, CDRPSL_BCNT(RS) ; Adjust byte counts 


MSCP 
-001 


50 


I 16 


- MSCP Server = Emulator 16-SEP-1984 02:00:5 AX/VMS Macro V04-0 Page 51 
= ERROR HANDLING ore 1 bbe 96:00:33 EnscP src MSCP.MAR; . (1) 
FEDS = 31 ! ‘3 30$: BRw ONL WRITE ; Return inline 
124 3 
} 3 : ; Write error recovery for bad blocks 
1249 : ONL _WRITE_ERR: 
O1F4 BF 38 Bl 1249 CAP RO, #SS$_PARITY ; Is it parity error? 
1 Yi 1 f 8 BNEQ - No, hard error 
DA AS F78F 78 125 9 ASHL  #-9,CORPSL_10ST1+2(R5),R1 ; Number of blocks transfered 
1 06 1 é 10 INCL RT ; Skip over bad block 
AS 51 9 1 14 ASHL #9,R1,CORPSL_BCNT(RS) ; Update number of bytes to copy 
FEES 31 ; 1 BRW ONL _LOOP_CHK : Return inline 
} 2 i ; Fatal error = take care of shadow set housekeeping 
54 C4 AS Be 126 16 Los: MOVL CORPSL_UQB(RS) ,R4 ; Pick up pointer to phy unit 
Fagg 30 ! os 18 Bseu AVAIL_ALL : Throw it out of shadow set 
é nisn up 
1269 1 
1269 0 ONL_ABORT_ERR: 
54 1269 1 CCRL 4 ; Always want the write unit 
38 14 AS 00 1268 § 50$: MOVL CORPSL_MSGBUFX(R5),R2 ; Recover MSCP pointer 
5 4 ag D0 1 gf MOVL WRT_UQB(R2) ,RO ; Pick up write (target) UQB 
wee D1 1273 4 CMPL RO,R4 3; Was the error on the write? 
98 7 8 5 BEQL ; Yes, then just fail it out 
54 127 g MOVL ; No, we must also fail write out 
FAC9 1278 BSBW AVAIL_ALL ; Throw it out of shadow set 
50 ¢' ¢ 1 4. $ 60S: MOVZ2WL #MSCPSK_ST_SHST,RO ; Set error code 
52 OA D0 (1 MOVL CDORPSL_ASGBUFX(RS).R2 =: Recover MSCP pointer 
54 CA 1285 0 MOVL MST_UQB(R2) ,R4 ; Recover master UQB pointer 
FFS : ; 1 BRwW ONL _F INIX ; Leave 
128C¢ : -DISABLE LSB 
128C 4 ; 
' H+ 5 ; CLEAN_UP_ONLCPY 
128C $ CLEAN_UP_ONLCPY: 
52 B80a5 00 1 8 AOVL CORPSL_MSGBUFX(R5) ,R2 3; Recover MSCP pointer 
11 BA 1 BICB #<UQBSM_CIP'UQBSM_SEQ>,-: Clear flags on shadow unit 
Ad 1292 2340 UQB$B_FLAGS(R4) 
51 4 a2 00 129 41 MOVL WRT UQB(R2) » RI : Grab write unit UQB pointer 
BA : 38 4g B1CB O<USRSh CIP UaRSh_SEQ!~ ; Clear flags on physical unit 
28 Al 13 1299 2344 UQB$B_FLAGS(R1) 
05 : +5 ri RSB 
1290 ‘3 : 
129D $8 ; GET_MAX_BLOCK 
1290 49 ; 
' +4 ~ENABLE LSB 
129D : GET_MAX_BLOCK: : 
3 4 1290 PUSH Re ; Get a register 
$8 AG C3 129F 4 SUBL ® yest PARP. BERG) RO; Calculate number of blocks to copy 
52 30 A4 00 1204 MOVL  UQB$L_UCB(R4).R : Bick up UCB pointer 
08 EO 12A8 § BBS #DEVST_RCT,- ; Skip next if no last track device 
07 38 A 12AA UCBSL~DEVCHAR(R2) , 10S 


50 ew aS 
0 A4 


68 mM, 
D6 AS 


60 
AG 
08 


a 
FIED CF 
53 EDSF CF 
00000000 * 9F 


erver - Emulator 16-SEP-19 
AANDLING $7 3FE 13 
AD 38 MOVZBL U BSB_SECTORS(R2) ,R2 
g SUBL R2,R 
B4 9 08: POPL 
4 20$: RSB 
. i ; BLOCK_CORP 
8 5 BLOCK_CDRP: 
B 66 MOVQ R3,CORPSL_FR3(RS) 
8 6 REMQUE CDRPSL_UGB_FL(R5),RO 
C re DECW UQBSwW Aum GUE (RS) 
C § INSQUE (RO3,0QBS0_BLOCKQ(R4) 
C 0 INCW QBSW_NUM_BLK(R4) 
a 4 MOVW #8, CORPSW_STATE(RS) 
cE 5g DEALLOC_BUFF : 
C 7% BBCC #CORPSV_BUFFER,- 
D 75 CORP$B-FLAGS(RS) , 20 
D 4 MOVL CORP$L_BUFLEN(RS) ,R1 
D 7 MOVL CDRPS$L~BUFADR(R5) .RO 
DB ee 3 272? BUG TRAP 
D 7 CMPL RO, BUFF _ADDR 
E 80 Bissu 708 
é 81 ADDL R0.R1 R3 
£6 8 CMPL R3,BUFF_END 
EB 8 BGTRU 70$ 
ED 4 ; 222 END BUG TRAP 
E 85 MOVAB BUFF_HEAD,R3 
F $? JMP @#EXESDEALLOCATE 
Fs 89 708: BUG_CHECK MSCPSERV, FATAL 
FC 91 .DISABLE LSB 


Bt 99:98:83 YASCO MERE SacepYaaae 


oe Hi, 


Pick up #sectors in last track 


; Subtract it out from total 
; Restore register 


Save R3 & R4 
Remove from head of execute queue and 
(make count agree) 
insert at head of block queue 
(make count agree) 
Show proper state 


Clear the buffer flag 

Pick up the buffer 

Ditto 

Does address precede allocation region 
Branch if yes 

End of region+! 

Is it beyond+1 

Allocation List head 

Get rid of buffer 

Invalid buffer deallocation 


< 
ce 


kK 16 
16-SEP=1984 02:00:53 YAX/VMS Macro v04-0 Page 53 
RISTICS ~$eb=13Be 99:90:33 FARCHMS ecco, vote mr oe 


10 = SET UNIT CHARACTERISTICS 


-SBTTL 
seneecencenceseccecececceecccecnnecerececeneeseeeeececere 
. 


#10- SET UNIT CHR * 
* 
jeennncereeeereeeeeneeererenenneneneneneneeneenaneneeeees 


-ENABLE LSB 
SET_UNIT_CHR: 


| | 
—z 
ou 
o 
‘vo 
27 
= 
om 
x3 
>c 
ze 
Pow 
or 
=o 
mo 


“9 
NOUS WN OOD NOAUE WN OOD NAME WO OODNAUE WH "OOO NAUSW -—11 


30 53 TSTw RO 3; Check sta 
C 1 BNEQ 50$ 3; Either AVAL or OFFLINE 
: S unit ONLINE to this host - set the unit characteristics 
02. €0 ios: BBS #MSCPSV_MD_STWRP,- : Check for correct modifier 
05 OA Al MSCPSW =MOBIFIER(RI), 208" 
a BBCC itis Ve UF WRTPS ,- 3; Not allowed, remove it 
00 OE Al MSCPS$W-UNT Festal). 208° 
3 Al A8& 20$: BISW MSCPSU ONT. FLGS(R1),- 
Aa UQB$W"UNT_FLGS(R4) ; Host settable flags 
24 04 26 A1 B0 MOVW MSCP$W_SHD@_UNT(R1), - 
UQBSw_ SHDW_ “UNT(R4) 3; Shadow unit 


: Move in returned info to end packet 
toPy_CHAR: 
MOVL 


24 Al 48 AG iv) OV UQB$L_MAXBLOCK(R4), - 3; Size 
MSCPSL_UNT_SIZE(R1) 
19 12 BNEQ 408 3; ALL okay 
52 30 Ad DO MOVL yopst_ UCB(R4) ,R2 ; Pick up UCB pointer 
08 12 BNEQ 0$ ; There is one 
52 78 A4~ 00 MOVL UQBSL_SHDW_LOW(R4),R2 ; For shadow master, use first phys unit 
30 A dO MOVL UQB$L_UCB(R2) ,R2 ; Pick up UCB pointer 
0080 C dO 30$ MOVL UCBSL_MAXBLOCK(R2),- 3; Get it from the UCB 
48 AG UQBSC_MAXBLOCK (R45 
24 Al 48 AS DO MOVL UQB$L_MAXBLOCK(R4), - ; Size (try again) 
MSFOSL_UNT_SIZE(R1) 
28 Al 2C AS dO 40$ MOVL ati: VOL_SER(R4), = 
CPSL_VOL_SER(R1) ; VOL_ID 
F74F Ss 31 BRid FIN CONT! STS ; Finish packet elsewhere 
F795 = 31 50$: BRW SEND_PKT ; Return AVAIL/OFFLINE error 


RMARAAMMODOL HL ANS OW MD OOL LLL LL ANG FS VNUMVOOCOCOSMOAOAOAOOAAOMOOO Me 


me ee ed ed ed ed od od od dt — — — — 4 2 3 
WWW AAAI AA AAAI AI AI AAI I AA AI AI I AA A A A A AI ORO PPPOPOPPFININD 
WW IA ALA AARON 4 I IQOOOOCOCOCOCOCO MN NHN NNN WH 
PPP PS 


WWRWWWIWNIRoRonononononononony 2 BQO OOO OOOO 0000000 


-DISABLE lsb 


POPP PINIPPNINYNYIANINININIADINININIPIPIPINININPIPIPININIDINPINIPIPIPIPIPINIPINIPIPININIPINPY 


L 16 
PATHS "GrSEp19RE 99:92:03 EASCPOSRCSASePemany sents: 


11 = DETERMINE ACCESS PATHS 


.$BT 
jteneneeerecerecerecerentrreetteeteentenertenertentreeees 
® 
#il- DET ACC PATH ; 
® 
MARRBRRAABAAAALALALALALALALALASALALALALEEASAS ESAS ESSA SEERA SS 


ber T_ACC_PATH 
BRW 


os 

rs 
oc 
mo 
“oO 


Fe ee 
SHELLS SSSE BI 
ya? a? at et et et et 
NOUISWwN—O”O Zi 


SEND_SUCCESS ; NOP 


=< 


POPIPOPININIPYDINPY/PIPY/S NININPYPINIPYPIPINIPUPIPINIPININININININININIPIN) = 0 
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M 16 
- Emulator 1 mi et 9 95:00:33 AX/VMS Macro V04-0 Page 55 
4 (1) 


MSCP MSCP 
v04-001 NON=SEQU NON-BUFFER class commands /7-SEP-1984 17:14:02 (CMSCP.SRCIJMSCP.MAR; 


4 ~SBTTL NON=SEQUENTIAL NON-BUFFER class commands 

; RO scratch 

3 Ri = Ptr to bits of buffer 

3 Re = low 3 bits of command 

3 R5 = Ptr to H 

: R4 = Unit AF 

; RS = Ptr to CDRP 
54 78 A5 NSEQ: MOVL CDORPSL_MST_UQB(R5),R ; Recover UQB pointer 
50 (OE Ad MOVZWL UOQBSW_STATOS(R4) ,RO ; Pick up status 

BEQL 3; Success = ONLINE 


BRW SEND_PKT 


3 
F788 3 ®eturn error code 

D 

E 


ANNAN S07 HMMM OOOW™=NOYSOMKKOTOPOTOToToNoN «me 
PS ee ee a a at ee 
COCO C009 08 SIN NINN NINN SNS SNA AAA AAAS UMMM 


1 9 
134 0 
1345 $432 
134 j 
134 4 
3 te 
1345 $489 
134 8 
134 9 
13 0 
ae 
50 30 A4 134 § 10$: MOVL UQBSL_UCB(R4),R Ucb a gress 
06 64 AO OE 135 4 BBC #UCBSY VOR TWERIES UCBSL _sT§(R0), 15$ 
We 5 ; Branch if mount verification is not 
3 progress 
50 04 00 133 5 MOVL #MSCPSK_ST_AVLBL,RO 3 ber unit as available 
F776 = 31 132 } BRW SEND_PKT : return unit available 
93 135 0 15$: BITB #<UQBSM_SEQ!- ; Check if in SEQ mode 
135 1 QBSM_RIP!- : or in repair 
135 § UQB$M “BLOCKED>, - 3; or blocked 
2B AG 32 135 ass. FLAGS (R4) 

03 13 136 4 BEQL FF OF ian 
130 2 BLOCKT : then block the command 
136 7 208: CASE CDRPS$B_OPCODE(R5) ,- ; Bisgeteh on command subtype 
136 8 Tyee eg Lin MIT=#MSCPSK_OP aA CES- 
136 9 <ACCES 3; 16-ACCESS 
136 0 < COMP PfRL _DAT,- ¢ 17-COMPARE CONTROLLER DATA 
136 1 oe E,- ; 18-ERA tte 
136 ¢ FLUSH, = ; 19-FLU 
136 REPLACE> : SO-REPLACE 

F5B0)3=—s31—s«4137 4 BRW ERR_1 


. EEE __—_—__—_—_—__—_—___________________—_—_ cae 


I 


8 1 

r - Emulator 16-SEP-1 AX/VMS Macro V04-0 Page 5 
$ -SEP-1 138¢ 6: 90: 33 YRScP. SRCJMSCP.MAR; . 2g 
4 § -SBTTL = 16 = ACCESS 
2 IT IIIIIILIIII ITIL IIIT ILL Ttiii iit iiiti iii 

3 ® 
" : #16- ACCESS ~ 
rh jeeeneeeneeeereeteceereeeeteentnneereeesteeneneneenenentt 
4 
493 ACCESS: 
494 BISB #1 ACDRPS$V_NOHSTBUF ,- ; Set for no host buffer 
495 CORPS$B_FCAGS(R5) 
138 BUG_CHECK “MSCPSERV,FATAL ; ?? Tied off here and in opcode table 
49 BRW” READ ; And join read code 


| 


CocecpcOcDCDCNCDCD = ™w 


** © 


Se et ee ee ee 
MUMMIES 
ooooooceona ™ 
NOUSWMN—O”O 


é 


.SBTTL = 17 = COMPARE CONTROLLER DATA 
jteeneeeeeteeereeeeereeetetneneneteeeeettnerceteeetnerees 
* 
#17=- COMP CTRL DAT . 
*® 
MARBRBAAAAAARALALASAALALAAAASAEAARSERSERSRAASR RRS ESA RSA S SS OS 


OMP_CTRL DAT: 
BRw SEND_SUCCESS ; NOP 


cro V04-0 


eas 
CER DATA _ Ep 198¢ 95:90:33 UaScPe Rc MSCP.MAR; 


Page 57 
. (1) 


Dd 1 
MSCP - MSCP Server = Emulator S e ay AX/VMS Macro V04-0 Page 58 
/¥66-001 = TRS ERASE $28 o 95:90:33 EMSC SRcdasce man. wa 
1387 0 .SBTTL 18 - 
: f i jenenessduenesessessesesreenencsnenenenscenesesecesesesy 
3 ® 
® 
: f 318 jetteeneeereeereerererteereetnnerteetteetneereeetneereees 
1387 1 ERASE 
B3 1387 251 BITW  #<MSCPSM_UF_WRTPS!- 
1 8 318 SCPSM~UF -WRTPH>,- 
12 A4 3000 8F 1388 251 QB$SW_UNT_FLGS(R45 ; If WRITE_PROTECT 
06 13 1 8D 520 BEQL 
138F 2521 MOVL #MSCPSK_ST_WRTPR, RO ; Set error status 
: 3 ; § BRW SEND_PKT to eee and exit 
1395 2524 10$ BISB  #l1@CDRPSV_NOHSTBUF,- =; Set for no host buffer 
1397 2525 CDRP$B_FCAGS(R5) 
50 15 B0 1399 25 § MOVW #10$_DSE,RO ; Indicate write 
0360 31 139C 25 BRW DO_WRT 3 Join WRITE command 


ee St 
20 88 
FA AS 


— 


“001 = ABS PEGAY = Emulator * "sgr$Eb1886 98:09:53 YARLUNE tasce,¥R4z0 dente 


MSCP CP.MAR; 
139F 9 .SBTTL = 19 = FLUSH 
1 : jeeneeneseeenseneeneencentnnennennennennannesnesssesenees 
i 3 ; #19- FLUSH , 
: ar 2 qi | euneeccncesenverenereeeeqenesneeconeerecoonsesceooeneces 
F 
139F 25 $ FLUSH: 
F730 31 139F = 5 BRW SEND_SUCCESS : Nop 


F 1 
Server - Emulator my EDS 02:00:53 Vv 
- 702 C 


REPLACE 
539 
540 
ri 
544 


>>>rPrr>r>rr>,r 
” 


A 
SEP=1984 17:14 MSCP.SRCJMSCP.MAR; 2 


~SBTTL = 20 = REPLACE 
peeeeeerereereerteeeeeeeereeeeeeeeeeeeeeeeeeeeTeeeeeee es 
: ® 


: #20- REPLACE . 


FARA AA AKER AAA AKER EKER AA AAA AAA AAAHEAAEERAA Eee 


"BRw ERR_1 ; Invalid opcode - Host Bad Not Supp 


X/VMS Macro V04-00 Page sf 


VO5-001 waTRAEARMEEE aoGtulatohas | UMCRBBSTORE QBEOREER. WARCNE tC Y04G09 tenet * 


] rn : ~SBTTL MAINTENANCE class commands 
135A MAINT: 
F581 31 #13A BRw ERR_1 


MSCP 
v04-001 


54 78 AS 
50 =—(OE AG 
93 

F71F 


F54E 


Oo 
‘ o 
ou 
+o 
& 
oO 
Ww 
So 
oF, 
oa 


- MSCP Emulator 16-SEP-1984 AX/VMS Macro v04-0 Page 6 
NON-SE BUFFER class commands or SEF} 3B 96: 90: 33 EmScP. SRCJM SCP. MAR; ° if 

} ~SBTTL NON-SEQUENTIAL BUFFER class commands 
1 ; RO scratch 
1 3 Ri = Ptr to geese e buffer 
1 : R2 = low BY ig of command 
1 3 R5 = Ptrt 
1 : R4 = Unit ee 
! ; RS = Ptr to CDRP 

0 1 NSEQB: MOVL CORPSL_MST_UQB(RS),R ; Recover UQB pointer 

§ 1 MOVZWL UQB$W_ STATOS(R4), ror : Pick up status 

} 1 EQL $ ; Success - ONLINE 

1 : BRW SEND_PKT ; Return error code 

pO 61 10$: MOVL UQB$L_UCB(R4) ,R Ucb address 

el 1 BBC #UCBSO UGATVERIES UCBSL_ sT&(RO),15$ 
1 3 Branch if mount verification is not 
1 3; progress 

dO 61 MOVL ee ige ST_AVLBL ,RO ; mark unit as available 

31 BRwW SEND_PKT : return unit available 

93 «1 15$ BITB #<UQBS$M_SEQ!- 3 Check if in SEQ mode 
1 UQBSM_RIP!- or in repair 
1 UQBSM- BLOCKED>, - or blocked 
1 UQB$B_FLAGS(R4) 

a 7 BEQL 0$ 2a WS wens 
: BLOCKT 3; then block the command 
1 20$: CASE CORP$B_OPCODE (RS) ,- 3 Btepetch on command subtype 
1 TYPE=6,LIMI T=#MSCPSK -OP_COMP 
1 <COMP_HOST_DAT,- F 3¢-C0 COMPARE HOST DATA 
1 READ,- ; 
1 WRITE> : T-ORITE 

31 «1 BRW eo 


| 
— 


-o 


7 Bscr 


SS tt 


Server = Emu lat or Rs 1 = SEP-1984 03:00:53 AX/VMS Macro v04-0 Page 63, + 4 


COMPARE HOST DATA -SEP-1 MSCP.SRCJMSCP.MAR; 
DB a -SBTTL = 32 = COMPARE HOST DATA 

DB 0 RRReeeeeeeeeeeeeeerereneteenenaeeaneeeaneeeteeerenereeet 

DB * 

s 3¢ 3 #32- COMP HOST ODAT ° 

DB aoe : ITITIIITII IIIT IIIT IIIT itiiiiiti titi ii iti it, 

DB 

DB 396 tomp_ HOST_DAT: 

DB 259 a W #10$_WRITECHECK,RO 3; Set function code 

DE 2598 DO_WRT ; and go do it 


: TST_END: Update the accumulated byte count and compare to original to 

; detérmine if another round is needed. Also check for errors and translate 
: VMS errors to MSCP errors. Finally, clean we resources and branch off 

; to return end packet with status. 


-ENABLE LSB 


4s 7 
MSCP - MSCP Server = Emulator 16-SEP-1984 02:00: AX/VMS Macro V04-0 P 4 
v06-001 = 33'- READ FSEp= 1984 19:14:02 EMSCP SRCSASCP MAR: or 
13€1 2600 -SBTTL = 33 = READ 
} 3 ? 1 ITTIIIIITIITI ITI ITIL t il 
; ® 
! 4 6 § 3 #33 - READ a 
® 
! 3 é 5 jeteaneeeeeeneereereeereeteerententneerertenteeenenteette 
1361 26 f Reap 
50 0 13E1 2608 MOVW #108," READPBLK ,RO 3; Set up for read 
03D 13E4 ? 9 BSBW slur 3; Common set up 
e. ‘ : ef 1 BITB ee PSB ECAGSIRS) - ; Test flags 
0 12 13€8 ele BNEQ READ : Skip if no host buffer 
D6 AS) «= 01s«iwBOSCéSdAM3ED «261 MOVW Wi CORPSW. STATE(R5) 3; Show it in mapping resource wait 
: 4 ai2 MAP_IRP 3; Map the buffer 
F 616 i Read the data from the disk 
134 18 READ_LOOP: 
D6 AS 0g 4 13F4 261 MOVW #2, CDORPSW_STATE(R5) : Set the state 
066 0 13F8 2620 BSBW DO Pise, ; Set up fro disk transfer 
10 93 13FB 2621 BITB #13CORP ; Check if aborted 
FA AS 13FD 26 : CORP $3. +i ches crs) 
38 12 #+4WSFF 26 BNEQ FINI 3; Leave if so 
07 50 § 1401 2624 BLBS RO,READ_CONT ; Success 
0168 1 1606 ° ? BRW READ_ERR ; Leave now for error 
1407 2627 READ_ wa" CDT: 
re . 3 G_CH HECK MSCPSERV,FATAL ; Stale CDT 
1098 ? 9; : Send the data to the host buffer 
140B 26 : READ_ CONT: 
20 93 1408 26 BITB wigconeey NOHSTBUF ,- ; Test flags 
FA AS 140D 2634 CORPS$B_FCAGS(R5) 
28 «4612 «140F 635 BNEQ rin ; Skip if no host buffer 
D6 AS) «603~—Ss«éwBO veil $36 8 1 -CDRPSW_STATE(RS) ; Show it queued to SCS " plock transfer 
3 egin 
52 B60 AS 1218 rt Aove " CORPSL <ASGOUEX(RS) » R2 ; Get message ner ter address for validity ch 
51 24 A5 DO 1419 2639 MOVL CORPS$L-CDT(RS5) ,R1 ; Get CDT a 
FB A2 18 Al 1038 rok CMPL cOTSt_ CCONID (RI) = 3 Check validity” of remote conid 
—&3 12 1 $ 64 BNEQ READ_INVACID_CDT ; Trying to use stale connection 
1424 2643 ; 27? End bug t 
1C AS D& 1424 2644 CLRL ion _MSG_BUF (R5) ; Mark it not in use 
1427 2645 SEN * : Send to host buffer 
46 50 1 § on8 BLBC™ ABX_ER ; Aborted 
FAS D7 (1 4 DECL PORES CMD_STS(R5) ; Set the command status 
BS AF 143C eee FINI: PUSHAB READ_LOOP ; Loop again 
143F 264 
143F $29 : 
143F 2651 
143F 636 
143F 265 
143F 2654 
143F 2655 ; 
143F 2656 


MSCP . myer socyer - Emulator P et tat bY 9 96:00:33 AX/VMS Macro V04-0 Page 65 


v04-001 R SEP-1984 4:02 CMSCP.SRCIMSCP.MAR; (1) 
rt 1 7 
53 DA AS 9 14 8 MOVL FPRPSL JOST 92(RS) .RS ; Pick up transfered bytes 
06 = 177 92 BRB 0$ ; Join common code 
144 é81 TST_END: 
23 bg AS D 144 96 MOVL CORPEL BENT CRS) RS ; Pick up transfered bytes 
51 7 ef 144 663 10$: ASHL we % 3; Make it blocks 
£0 AS C 1466 664 ADDL  R3,CDRP$L_ABCNT(RS) > Cale accumulated bytes xfer 
10 93 1452 2665 BITB #l@CDRPSV“ABORT,- : Check if aborted 
FAA 1454 666 CORP$B_FCAGS(R5) 
5 1g 1428 66 BNEQ ABO 3 Leave if so 
29 8 c 12 6 } BLBC RO,OUT_ER ; Leave if error 
D4 1458 26 CLRL R 3; Assume success 
52 €4A5 €0A5 C3 145 670 SUBL3 CDRPS$L_ABCNT(RS), - 3; Calc how much left to do 
1463 2671 CDRPSC_OBCNT(R5S ,R2 
47 15 146 or¢ BLEQ 3; None, we are finished 
D2 AS 32 p 1468 673 CPL R gCORPSL_BCNT(RS) ; If piece left less than BCNT 
Sas BROe « 
2 AS 2 DO 1468 2675 MOVL R2,CORPS$L_BCNT(RS) ; Use it 
C AS DO 146F 676 MOVL R2,CDRPS$L_XCT "8 ; Ditto 
38 AS EO AS DO 1473 2677 20$:  MOVL  CDRPSL_ABCNT(RS), - : Set the remote byte offset 
1478 678 CDRPSC_RBOFF (R55 : to be accumlated xfer size 
48 AS 51 CO 147 67 ADDL R1,CDRPSL_LBN(RS) 3; Update LBN 
05 Vere 280 RSB 3; Loop again 
100 tt) -DISABLE LSB 
178 ob? : Command was aborted while on disk queue 
8E D5 1208 ea ABO_ER: TSTL (SP)+ ; Clean stack 
Veer +t} : Command was aborted during SEND/RECEIVE DATA to host 
50 02 00 147F 2690 ABX_ER: MOVL  #MSCPSK_ST_ABRTD,RO ; Set status 
2A sod 1o8e $3) BRB ouT1 
1332 638 : Command received a disk error - translate from VMS to MSCP status. 
BE 05 1484 695 OUT_ER: TSTL  (SP)+ : Get rid of return address 
04 €0 14 $ 696 BBS #CDRPS$V_ABORT,- 3; Check if aborted 
F4 FA AS 14 697 CORP EP a AOe the) AOE ER Leave if so (has priority over errors) 
52 14F6'CF Ha 14 698 MOVAW ERR_TBL,R : Pick up error table address 
51 82 g 149 344 10$: MOVZWL (R23+,R1 ; Grab VMS error entry 
pA 13° 149 ? BEQL 20$ 3; End of table, quit 
50 1 Bi 149 7 CMPW R1,RO 3; Try for a match 
05 13 1498 27 j BEaL §=s-« 208 ; Success 
52 04 CO 149A 27 ADDL #4,R2 3; Step to next entry 
ee 1490 f , BRB 10$ ; Loop 
50 8 Hs 149F 27 $ 208: MOVZWL (R2)+,RO 3; Pick up MSCP error 
516 ¢ 14A2 27 CVTWL  (R2),R1 : Get possible routine 
0 13° 146A 7 3 BEQL ouT1 3; None 
Orns 16 146A 7 JSB (R1)CR2) 3; Invoke the routine 
0 11 ery oy BRB ouT1 : Continue on 
12ae at : Final clean up for transfer commands. Set status, release resources. 
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ce 
ver - Emulator 16-SEP-1984 02:00:5 AX/VMS Macro V04-0 Page 66 MS! 
D -SEP=1984 95:00:33 EMSCP.SRCINSCP MAR; - tf VO 
714 OUT: TSTL (SP)+ ; Get rid of return 
715 OUT1: MOVL | Se aeaaall ablaaalttea ; Pick up old message buffer ptr 
at BEQL 10$ ; None, probably an abort 
71 MOVL CORPSE ABCNT(RS) ,- : Set byte count 
71 MSCP$C_BYTE_{NT(R2) 
71 MOVW RO ASCP EM STATUS (B ) ; Store the status 
720 10$ MOVW #5 ,,CORPSW_STATE(RS) ; Set state 
721 BITB #iaCDRPSV NOHSTBUF .~ 
7 § EORPSE_FCAGS(R ) 
7 BNEQ 20$ : ship if no host buffer 
724 MOVL CORPSL_CDTX(R5) ,R3 ; Pick up the CDT address 
725 MOVL  CDTS$L_PDT(R3) ,R4 ; Set up POT address 
7 § UNMAP ; Get rid of mapping resources 
727 208 MOVL CORPSL_SHDW_LNK(R5),R4 ; Check possible IRP Link 
7 8 BEQL 40$ 3 None, continue on 
729 30$: MOVL R4,RO ; Transfer IRP pointer 
730 Bea. 4«=s«40$ ; Done 
731 MOVL IRP$L_SHDW_LNK(R4),R4 ; Transfer next IRP pointer 
7 ¢ BSBW DEALRER ; Get rid of it 
4 Z BRB 30$ ; Loop for more IRP's 
735 40$ MOVL CORPSL_MSGBUFX(R5),R2 ; Pick up old message buffer ptr 
7 § BEQL ; None, probably an abort 
7 CLRL MSCPSL_FRST_BAD(R2) ; Clear unused field 
A BRW SEND_ORT_STS ; Return the end packet 
my 50$: BRW CLEAN_UP 3; Finish up 
74g ERR_TBL: 
74 ACTION SS$_MEDOFL,MSCP$K_ST_AVLBL,ERR_AVAIL 
744 ACTION SS$_VOLINV,MSCP$K_ST_AVLBL,ERR_AVAIL 
745 ACTION SS$_WRITLCK,MSCPSR_ST WRTPR ERR_WRITLCK 
746 ACTION SSS$"DATACHECK ,MSCPSK_ST_ COMP 
747 ACTION SS$"CTRLERR,MSCPS$K_ST_CNTLR 
748 ACTION SS$_FORMAT,MSCPSK_ST_MFMTE 
749 ACTION SSS$~FORCEDERROR,MSCPSK_ST DATA 
5/20 ACTION SS$_PARITY <<MSCP$K_ST_DATA>! <1*MSCPS$K_ST_SBCOD>> 
751 ACTION SSS$~IVBUFLEN,MSCPSK-~ST-HSTBF 
236 ACTION SS$~SHACHASTA,MSCPSR st SHST ERR SHACHA 
75 ACTION SS$"TIMEOUT,<MSCPSK_ST_OFFLN!MSCPS$K_SC_UNKNO>,ERR_OFFLINE 
754 ACTION -MSCPSK_ST_DRIVE 3; PATCH SPATE 
£22 ACTION 0O,MSCPSK_ST_DRIVE ; End of table - default error 
bas ERR_AVAIL: 
O38 MOVL CORPS$L_UQB(RS) ,R4 3; Pick up pointer : 
75 MOV) #MSCPSR_ST_AVLBL,- : Set new status in unit 
760 UQBSW_STATUS(R4S 
9) RSB 
763 ERR_OFFLINE: 
764 MOVL CORPS$L_UQB(R5) ,R4 ; Pick up pointer 
765 MOVW #MSCPSR_ST_OFFLN,- ; Set new status in unit 
766 UQBSW_ STATUS (R45 
oe RSB 
rep ERR WRITE OVL — CDRPSL_UOB(RS) ,R1 Pick int 
7 a ‘ ; Pick up pointer 


MSCP - MSCP Server - Emulator 16-SEP-1984 02:00:5 AX/VMS v04-0 
v04-001 - ME = READ ore Oke 96:00:33 EMSCP. SRC ASCP .MAR: 
0012 A1 OD €2 BBSS § #MSCPSV_UF_WRTPH, - 
UQBSW_UNT_FLGS(R1),20$ ; Set in unit flags 
05 208: RSB 


ERR_SHACHA: 
TSTL (SP)+ ; Remove return address 
MOVL CORPS$L_UQB(R5) ,R4 ; Pick up pointer 
BSBW AVAIL_ALL 3; Kick unit cut of shadow set 
MOVL #RSCPSK_ST_SHST RO ; Restore status 
R OUT 3; Continue 


really a shadow read. If so, attempt the read repair. There are only 
two cases to consider: 


1) RO = SSS_NORMAL: Read partially succeded, up to a parity or 


i 

tS 
f 
f 

15 

0 BRW 

1 

; Error recovery routine for shadow reads. First, verify that this is 
5 
37 
38 forcederror. Continue the SEND_DATA pers of the Loop 
0 . 
i 

4 

5 


Bee Se Se Se Se Ge Ge Be Se Se Se Bete 


and retry the read at the failed bloc The read wi 
either succede or fail back here with an error. 
2) RO = failure: The repair/retry logic failed. Terminate the 
read and report the error to host. 
EAD_ERR: 
51 C4 AS dO 38 MOVL CORPS$L_UQB(R5) ,R1 ; Pick up UQB pointer 
52 78 AS 00 MOVL CORPSL_MST_UQB(R5),R2 ; Pick up master UQB pointer 
OE 1 7 BBC #MSCPS0_UF-SSMEM,- ; If this unit is shadow member 
30 12 Al UQB$W_ONT“FLGS(R1),20$ : and 
2: wt CMPL R1,R2 : If 10 directed to shadow master 
28 13 BEQL § then 
50 AS FE6F CF 9€E MOVAB READ_LOOP CDRPSL_FPCX(RSS ; Where to send blocked reads 
¢ 10 BSBB ——- READ “REPAIR ; Attempt read repair 
20 50 6? BLBC RO Failed to find good block 
51 DA AS _ F7 8F 4 ASHL #-$, CORPSL_10ST1#2(R5),R1 ; Find how much was transfered 
3c AS) 510 O09 7 ASHL #9,R1,CD Back to bytes 
B4 AS 00 MOVL § CDRPS$L_BUFLER(RS), : Restore the old bytecnt 
D2 A5 CORPSC_BCNT (RS) 
05 =€1 BBC #CDRPSV_NOHSTBUF ,- ; If this is a passthru, 
08 FA AS CDRPSB-FLAGS(R5S ,10$ 
$1. 3) 9¢ 78 ASHL #2,R1,R ; Make it number of Longwords 
CC AS 1 0 ADDL R1 CORPSL_SVAPTE(RS5) ; Update PTE pointer 
FE5F 31 BRW READ_CONT : Succeded in repair, continue SEND 
FE8D 31 5 BRW FINI ; Leave for good 
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Phase 1: 


Phase 2: 


1) RO = 


2) RO = 


3) RO 


4) RO = 


Inputs: 
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$7 =1382 6: 9:33 ERSCP SRC MSCP.MAR; ° (1) 
- READ REPAIR routine 


Read error recovery for bad blocks. This operation has two phases: 


If error is not SS$_PARITY or SS$_FORCEDERROR, then 

leave immediately with RO = SS$_SRACHASTA. Next we check 
the bytecnt. If at least ~ block has been successfully 
read, then we leave with RO = SS$_NORMAL after updating 
transfer parameters to reflect a transfer of 4 to but not 
including the bad block. The next read will then cause us 
ge he mere for phase 2. Otherwise we drop immediately 
nto phase 2. 


We enter with an immediate error in the first block. We 
can return with four cases: 


SS$_NORMAL: The biock in error on all source units has been 
successfully reperree if a FORCEDERROR or a good block on an 
alternate unit has been found for PARITY error. We leave 
with transfer parameters indicating a good one block read. 


SS$_SHACHASTA: An unrepairable, fatal error occurred on one 
of the source units or the target unit. The calling routine 
must fail the offending unit out of the shadow set. 


SS$_PARITY: We have a parity error in the same LBN of all 
the source units. No repair is possible. The shadow set 
remains intact. 


SS$_FORCEDERROR: As case 3 above, only a forcederror. 


Any error that occurs while a repair is pending is put on the blocked queue 
and will be restarted from the read when the repair operation is finished. 
This routine is non-abortable. 


RO = Disk failure code 
R1 ==> Failing UQB 
R2 --> Master UQB 
R3/R4 = saved 
R5 --> CDRP ' 
6 CDRP$L_UQB --> Failing unit UQB 
CDRPSL_FPCX --> Where to restart blocked reads 
6 Outputs: 
6 0 = Status code 
? CORPSL_IOST1 = upated 
71 READ_REPAIR: 
51 ce AS 00 7 MOVL CDORPS$L_UQB(R5) ,R1 ; Pick up UQB pointer | 
52. 78 a5 «200 «(1583 287 MOVL  CDRPSLMST_UQB(R5),R2 =; Pick up master UQB pointer 
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Is this a repairable error? 
Yes, go off to Bh. sae logic 
Is it parity e 


ms 
vc 
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mn 

x= 

cr 


maw 
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2144 BF 


10 #SS$_FORCEDERROR 
O1F4 BF 5 
09 
AS 
8F 


R 

BEQL 108 

CMPW R #SS$_PARITY 
CD 
aS 


BEQL § Yes 90 off to repatr logic 
pa sé CLRL RPSL_10ST1+2(R5) No by es transfered to host 
50 2284 MOVZWL S$_SRACHASTA,RO Set fatal error 
$B Leave 
; Set RIP mode (rundown) for Pe —— unit. If this is not the first 
; error for this unit, hold it e blocked queue until the first 
: i error is finished. ALL REPAIR OPERATIONS MUST BE SEQUENTIAL!!! 
; When the repair is finished, these operations will be restarted. 
5C AS 8EDO 10$: POPL §CDRPSL_SAVD_RTX(RS) ; Save return address 
05 BBC #UQBSV_RIP,=- 3; If already a RIP 
1¢ 2B A QB$B~FLAGS(R2) ,20$ 
ee. MOVL R2,R 3; Transfer to proper register 
50 BA OF REMQUE CDRPSL_UGB FL(RS),RO 3; Remove from execute queue 
0 A4 DECW UQB$W_RuM_GUE(R4) 3; Account for it 
BLOCKT 3 Block until first RIP over 
4 sy OE INSQUE ls U0B, LCR) 3; Insert packet on unit que 


$ BL(R4) 
UQB C CORP BL 


BSW 
MOVL CORPSE FREXCRS) R4 
JMP SCDRPSC_FPCX(RSS 


: First repairable error on this volume. Check for any I/0. If so 
3; block the RIP CDRP until all other 1/0 done, saving current state. 


20$:  MOVW  CDRPSW_FUNC(RS),- : Save old function code 
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Account for it 
Restore R4 (PDT) 
Attempt the read again 


50 A4 BG 
54 58 A5 00 
50 B85 617 
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CO AS” s«BO 
56 A5 CDRPSC_FR3X+2(R5) 
50 DA AS F7 BF 78 #-9, CORPS. 10ST1+2(R5), RO; Number of blocks transfered 
OD 13 6 BEQL 308 3; None, we are in real repair 
D2 AS 50 O09 78 0 ASHL RO, coarse, BCNT(RS) ; Yedate transfer parameter 
D2 A500 0 MOVL CORRS <b NT(R5S) ,- : Also update status 
DA AS 0 CORPSE” eOSTT a2 0R5) 
00c6 Ss «31 } BRW 140$ 3; Leave now, first part done 
20 «688 12 308: BISB #UQBSM_RIP,- ; Set the repair in progress flag 
2B A2 1 UQB$B~FLAGS(R2) : on shadow master uni 
88 1 BISB #UQBSM_RIP,- ; Set the repair in progress flag 
2B Al 1 UQB$B~FLAGS(R1) : on physical unit 
D8 AS «BO 1 MOVW wir" IOST1(R5),=- ; Save old status 
23 AS 1 CORPSC_FR3X(R5) 
01 0 A2 861 1 CMPW negara ; Check the shadow master for 10 
1D 618 1 BLEQU $ :; None, all okay 
54 78 DO MOVL ; Transfer to proper register 
50 gB A OF REMQUE Saree UQB_FL(R5),RO 3; Remove from execute queue 
AG DECW UvaBSw_RuM "Bue (R4) 3; Account for it 
BLOCKT ; Block until att 1/0 rundown 
—E8 AS OE INSQUE vauass UQB_FL(R5),=- 3; Insert packet on unit que 
4 B4 aug8 : age BL (RA) 
0A4 8B INCW Gus (aS 3 Account for it 
1 4 AS D MOVL CORPSE wr »,R1 ; Pick up foiled UQB pointer 
2 78 A5 p MOVL CORPSL MST UQB(R5) ,R2  : Pick up master UQB pointer 
D2 AS 0200 BF 3¢ 40$ MOVZWL CORPSC_BCNT(R5) =; Only do one block 
: MOVL Ri, CORPSL SSTRT UOBCRS) ; Set a end condition 


— 
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MSCP P Server = Emulator 16-SEP-1984 02:00:5 AX/VMS Macro V04-0 Page 
v04- AD REPAIR routine -SEP- 214: MSCP.SRCJMSCP.MAR; 
$4-001 i et ee Pa Se j . 
164 931 ; 
164 o ; Attempt fo find a good copy of the block, reading all units if necesary. 
164 933 ; Keep a list of units that are unreadable. If no units are readable, we 
164 934 ; will return the 10 with the FORCEDERROR status. If any unit has an 
196 4 5 ; unrepairable error, we will faii out with Shadow Set Status has changed. 
50 54_A5 164 9 $ 50s: MOVZWL CDRPSL_FR3X(R5) RO ; Pick up true status code 
O3EA 1647 29 8 BSBW LECTINEXT UNIT : Get the next unit 
6 164A 29 BEQL ; None, left error out 
164C 2940 MOVW #<10$_READPBLK!- 3 Set for READ/COMPARE 
164D 2941 I10$M_DATACHECK>,= 
CO AS rt F 1608 ok DRPSwW_FUNC 
D6 A 2 165 94 MOVW #2,CDORPSW_STATE(RS) ; Set the state 
0404 1938 944 BSBW DO_DISK ; Do the rea 
51 C4 AS 165 945 MOVL CORP$L_UQB(R5) ,R1 3; Pick up UQB pointer 
Oc 50 165D 2946 BLBS RO,60$ ; Success now go to write 
54 aS 29 1660 2947 CMPW RO, CDORPSL_FR3X(R5) ; Was the error repairable? 
7 1664 2948 BNEQ  80$ : No, leave with failure 
20 1666 2949 BISB #UQBSM_RIP,- ; Set the repair in progress flag 
2B Al 1668 2950 YOSSS LASSER? 
D7 1908 33) BRB 50$ ; Try for another unit 
166C 98 ; Read phase succeded in locating a good copy of the block. Now run thru 
3 the List of units with a bad copy and repair them. 
1966 See he Li f uni ith a bad d h 
74 a5 51 166¢ 956 60$: MOVL  R1,CDRPSL_STRT_UQB(RS5) ; Set end condition & save good unit UQB 
1670 2957 MOVW #<10$_WRITEPBLR!- ; Now change to write 
1671 958 O$F_DATACHECK>,=- 
CO AS) «4008 8F 1671 2959 CDRP$Q_FUNC(RS 
0388 1676 2960 70$: BSBW SELECT_REXT_UNIT ; Get the next unit 
41 1679 2961 BEQL ; None left, leave : 
5 1678 308 BBCC #UQB$V_RIP,- ; Check for units needing repair 
F6 2B Al 167D 296 UQB$B~FLAGS(R1),70$ 
54 AS 1680 964 CMPW CORPS$L_FR3X(R5),- s if perity error, 
O1F4 8F 168 965 #SS$_PARITY 3; then skip write : 
EE 13 1988 966 BEQL ; since it cannot be written 
D6 AS 04 +4 198 967 MOVW #4, CDRPSW_STATE(R5) 3; Set the state 
Osce 0 168C 2968 BSBW D 3; Do the write 
51 C4 A DO 168F 969 MOVL CORP$L_UQB(R5) ,R1 3; Pick up UQB pointer 
£0 50 =6—€8 «41693 2970 BLBS RO,70$ : Success, look for next unit 
025c 8F 50 Bi 1696 2971 CMPW RO, #SS$_WRITLCK ; Was the error writelock? 
09 «13 1698 976 BEQL «6-708 : If so, ignore it 
169D 2974 : A hard, yrrepeireble error has occurred. Clean up any status and 
1990 3°? 3; then fail this unit out of shadow set and report status to host. 
50. 2284 8F BO 169D 39 Bos: MOVW #SS$_SHACHASTA,RO ; Set the fatal error code 
51 74 A5 DO 16A2 978 90$:  MOVL  CDRPSL_STRT_UQB(R5),R1 ; Get starting point 
09 «11 1648 444 BRB 110$ 3; Do it 
51 $1 DO 16A 981 100$: MOVL UQB$L_SHDW_FL(R1),R1 ; Advance to next unit 
7% a5 51 D4 16A8 3 : CHPL R1 .CORPSL_STAT_UGB(RS) ; End? 
: Yes 
8 8A 1681 2984 1108: BICB #UQBSM_RIP,- ; Clear flags 
2B Al 1683 985 YOBSB_FLAGS(R1) 
F111 1989 4 § BRB 100$ ; Loop for more 
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MSCP - MSCP Server 
v04-001 = READ REPAIR routine SEP-1984 MSCP.SRCJMSCP.MAR; 
DA AS D4 1687 3 120$: CLRL CP RESL 10ST 192 (RS) ; Show nothing transfered 
1A s111 } Be 3 BRB 0$ ; Leave 
16BC 2991 ; Repair is finished. Clean up, restore original parameters and 
19B¢ 9 ; restart the read from the beginning. 
20 8A 16BC 2994 130$: BICB #UQBSM_RIP,- ; Clear status bit 
zB Al 168k 995 UQB$B-FLAGS(R1) 
51 4A5 DO 16C 4 MOVL CORP$L_STRT_UQB(R5),R1 ; Recover original UQB 
C4 AS 51 DO 1604 299 MOVL R1,CORPS$L_UGB(R5) 3; Restore it 
30 Al 00 16C8 2998 MOVL  UQBS$L_UCBTR1),- ; Transfer UCB pointer 
BC AS 16CB 99 GORPSL UCB(RS) 
DA AS 0200 8F C 16CD 0 MOVZWL #512,CDRP$L_I0ST1+2(R5) ; Show one block read 
50 =—s(01 C 16D3 8 1 1308: MOVZWL #SS$_NORMAL,RO ; Set success status 
56 AS BO 16D6 § 150$: MOVW corps. FR3X+2(R5) ,= ; Restore function code 
4 AS 1609 300 CORP$Q_FUNC(RS) 
52 78 AS DO 16DB 3004 MOVL CORPS$SL_AST_UQB(R5),R2 ; Grab shadow master U0B 
20 8A 16DF 3005 BICB #UQBSM_RIP,- ; Clear status bit 
2B Ae 16E1 3006 UQB$B-FLAGS (R2) 
54 604A DO 16€3 3007 MOVL CORPSL_CDTX(R5) ,R4 ; Pick up COT address 
54 10 AG DO 16E7 3008 MOVL  CDTS$L_PDT(R4) RG ; Pick up PDT address 
5¢C BS 17 16€B 3009 JMP @CDRPSL_SAVD_RTX(R5) § ; Return 
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v04-001 - 34 = WRITE -SEP-1984 6: 9:33 EmscP eRe MSCP.MAR; ° (1) 
16EE 11 -SBTTL = 34 = WRITE 
\PEE 1 FRA EA REA EA EE AEETEEEEAAEEAAAAAAAAAAAAAAREAREAARAAREE EE 
EE 3 * 
16EE 14 ; #34- WRITE * 
16EE 15 ; ® 
1OEE 16 PRRRR AREA REAR AAA RAAT AAA AAA AAAAATA AERA e eee 
EE V7 3 
16EE 18 ENABLE LSB 
16EE 1 
16EE Q WRITE 
B3 16EE 1 BITW #<MSCPSM_UF_WRTPS!- 
16EF § SCPSM_UF_WRTPH>,- 
12 AG 3000 8F 16EF QBSwW_UNT_FLGS(R4S ; If WRITE_PROTECT 
6 13 16F4 3024 BEQL 
50 8 go 1968 025 MOVL #MSCPSK_ST_WRTPR, RO ; Set error status 
F3D 1 i § § BRW SEND_PKT 3 eee and exit 
50 0B 88 16FC 3028 10$: MOVW #10$_WRITEPBLK,RO ; Set up for write 
00BD 9 1ore 029 DO_WRT: BSBW SETUP 
20 93 1702 3030 BITB #1 aCDRPS$V_NOHSTBUF ,- ; Test flags 
FA AS 1704 3031 DRPS$B_FCAGS(RS5) 
07 12 1706 O36 BNEQ 20$ ; Skip if no host buffer 
D6 AS) «=601-—ss« BO SC«1708 «303 MOVW #1,CDRPSW_STATE(R5S) ; Mapping resource wait state 
170C 3034 MAP_IRP ; Map the data 
170F 3035 ; 
17RF O38 3; Request data from host buffer 
D6. AS 03 80 170F 3038 20$:  MOVW  #3,CDRPSW_STATE(RS) : Bump the state 
20 93 1713 3039 BITB #1 aCDRP$V_NOHSTBUF ,- ; Test flags 
FA AS 1715 3040 CORPS$B_FCAGS(R5) 
2B «412 «21717~«=23041 BNEQ 0$ ; Skip if no host buffer 
1719 peg 3 777 Begin bug sree 
52 BO AS 1719 304 OVL CORPSL_MSGBUFX(R5),R2 ; Get eeesoge buffer address for validity ch 
51 24 AS DO 171D 044 MOVL CORPSL_CDT(RS) ,R1 ; Get CDT address 7 
FB A2 18 Al 1721 3045 CMPL CDT$L_CCONID(RI) - 3; Check validity of remote conid 
1726 046 SCS$L-DST_CONID(R2) 
18 12 1726 304 BNEQ $ 3; Trying to use stale connection 
17 ; 048 ; 77? End bug tree 
10 AS D4 17 049 CLRL CDRPSL_MSG_BUF (R5) ; Mark it not in use 
172B 3050 REQUEST_DATA ; Get the data from host 
50 § 173A 3051 BLBS RO,30$ 3; Success 
FD3F 1 1778 be8 BRwW ABX_ER ; Aborted 
1740 28 25$: BUG_CHECK MSCPSERV,FATAL ; Trying to use stale CDT 
102? 28 3; Write the data to the disk 
FLAS D7 «1744 38 $0$:  DECL § CORPSL_CMD_STS(RS) ; Set the command status 
D6 AS) 6B6OC«éA: 747 InNCW CORPSW_STATE(RS) ; Set state 
53 4C AS 0 174A 60 MOVL CORPSL_SHDW_LNK(R5),R3 ; Pick up the first IRP 
—. f a3 61 BEQL 3; No shadowing, skip 
D8 AS) = «60O1)SClsCé#sCéd7 $¢ MOVL #1, CORPSL_IOST1(R5) 3; Set default success 
OAC c bp 1754 3063 40$:  PUSHL IRPS$L_SHD@_LNK(R3) : Save pointer to next IRP 
E 4 D 1758 oe MOVa R4,-(SP) ; Save registers 
12 10 1758 5 BSBB ; Do it 
54 3 7D 175D 06 MOVa hada ; Restore registers 
8EDO 1760 6 POPL in ; Restore pointer 
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- 34 = WRITE tae 96:00:33 YRSCP SRC MSCP.MAR; ° (1) 
EF \ 1763 BNEQ 408 : and loop 
0 170? 50$: RSB ; None left, leave now 
178 4 3 Non=shadowed writes 
2F4 «30 «176 73 60$: BSBW 00 DISK : Do the | disk transfer 
AS AF F 176 74 Ba eHAB $ ; Loop r 
FCD6 1 4 tS o BRwW TST_END 3; Check 4° finished 
178 7 3; Shadowed writes 
a as % roe 8 fos: INCB CORP$B_SHDW_CNT(RS) ; Count the number of copies 
ef 17 0 80$: BSBW cs ; Do the disk transfer 
OF 9 5 177 1 BLBC RO, WRITE_ERR ; Error 
C2 A 7 177 : 90$ DECB DRPS$B_SADW_CNT(RS) ; Drop the ¢ 
—E8 12 1778 BNEQ 0$ 3 Not finished. go back for more 
SF AF 9F 1770 4 PUSHAB 20$ ; Loop return 
DB AS 0 1780 3085 OVL CORPS$L_IOST1(R5) ,RO 3; Pick up conpge tte status 
F CBE 1 4 3 § BRw TST_END ; Check if finished 
1787 +43 3 Shadowed write error recovery. 
1787 3089 ; 
1787 3090 WRITE_ERR: 
04 €0 1787 3091 BBS #CDRPSV_ABORT,- ; Leave if abort 
EC FA AS 1789 O36 CORPSB_ FLAGS(R5), 90$ 
O1F4 8&F 50 61 178C 88 CMP RO #SS$"P ARITY ; If not parity 
08 13 1791 309% BEQL 1106$ : then 
2284 8F 3C 1793 3095 MOVZWL #SS$_SHACHASTA,- ; Update composite status 
D8 AS 1797 096 CORPSL_I0ST1(R5) 
DD 611 «+1799 «+309 BRB 90$ ; Continue 
1798 3098 
01 4 1798 3099 110$: MOVL ; Set for succes 
F 78 179E 3100 ASHL #5" TRPSL_10ST1#2(R3) RI; amber ef blocks transtered 
1 D6 17A4 101 INCL 3; Skip this block 
1 £8 17A6 31 § ADDL R1, IRP$L_LBN(R3) : Show it 
9¢ 17AB 31 ASHL 3; Number of bytes of svapte 
1 £0 17AF 3104 ADDL RI. ; IRPSL_SVAPTE(R3) ; Update buffer address 
9 8 1783 193 ASHL 3; Number of bytes ‘‘transfered’’ 
1 C2 1787 3106 SUBL RI * IRPSL_BCNT(R3) ; Left to go 
BS 12 17B8B 3107 BNEQ o$ : Redo the 10 
B9 =o 1780 : 3 BRB 0$ 5 Nothing. left, fake success 
17BF 110 -DISABLE LSB 
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v04-001 SETUP = Setup the CDRP for transfers ists 7 96:00:35 EmscP Src MSCP.MAR; ° 


17BF 118 -SBTTL SETUP = Setup the CDRP for transfers 
17BF 311 
rer 3118 3 
rer 118 ; SETUP = Set up the all the entries for both disk and CI transfers 
17BF 43118: Inputs: 
17BF 118 3 RO = Function code 
17BF 3120 ; R2 --> MSCP packet 
17BF 121; R4 ==> UQB 
{fee : § § RS ==> CDRP 
17BF 3124 ; Output: 
17BF 125 ; R4 ==> PDT 
17BF 31 § 3 R5 ==> CDRP 
17BF 3127 ; 
Va $8 
52 B80 AS DO 17BF 3130 SETUP: MOVL CORPSL_MSGBUFX(RS),R2 ; Refresh R2 => MSCP message. 
C4 AS 54 00 rcs 131 MOVL R4,CDRPS$L_UVOQB(R5) ; Save the UQB pe *aver 
78 AS = =6540~—=CoO#Os«édA7C 1 $ MOVL R4, CDORPSL_MST_UQB(R5) 3; Save master UQB pointer 
64 B46 £8 AS OE 17CB 31 INSQUE CORPSE UQB_FLTRS), - ; Insert this packet on unit que 
1700 3134 auessC_CDRP_BL(R4) 
50 AGB 1708 135 INCW UQBSW_NOM_QUE(R4) ; Bump number of packet queue to unit 
50 AS =B1Céd1772D 136 CMPW UQBS$W_NUM_QUE(R4) ,- ; Is this number <= max? 
52 Ad 1706 3137 UQBSW-MAX_QUE (R4) 
0S 18 1708 3138 BLEQU 0$ ; Yes, skip 
50 AS = BO OCI7DA «(3139 MOVW UQB$W_NUM_QUE(R4) ,- ; No, set new max 
52 A4 17DD 140 UQB$W_ MAX QUE(R4) 
D6 AS «B44 «17DF «603141 108: CLRW CORPSQ_STATE(RS) ; Set state 
4000 8F B3 17E2 146 BITW #1amMSCP$v_MD_COMP,- 
OA Ag 17E6 314 MSCPSW_MODIFIER(R2) 
0 13° 17EB 3144 BEQL 0$ 3; If COMPARE modifier 
50 4000 8F AB 17EA 3145 BISW #10$M_DATACHECK,RO 3 «ee Set DATACHECK modifier 
0100 8F B63 I7EF 198 20S: BITW #iamSCP$v_MD SEREC,- 
OA Ae 17F3 314 MSCPSW_MODIFIER(R2) 
0 13° «17F 148 BEQL 30$ ; If SUPPRESS ERROR CORRECT modifier 
50 8000 8F AS 17F 149 BISW #10S$M_INHRETRY RQ 3 .-- set INHIBIT RETRY modifier 
CO AS 50 B80 17FC 3150 308:  MOVW RO, CDRP$W_FUNC(RS) : Set completed code in packet 
51 OC A2 0D 1806 131 MOVL  MSCPSL_BYTE_CNT(R2),R1 : Pick up size of request 
5A 13 1804 31 § BEQL 60$ ; Special case zero length 
30 AS) «=O BS 1 MOVL UQB$L_UCB(R4) ,- ; Transfer UCB address 
BC AS 1809 3154 CORPSL_UCB(R5) : to UCB addr in IRP 
EO AS) «64-1808 132 CLRL CDRPSL_ABCNT (RS) ; Clear accumulated byte count 
4 a 51 dO 180 1 § MOVL R1,CORPS$L_OBCNT(RS) ; Set original byte count 
5 51 pO 181 1 MOVL R1,R3 ; Copy to another register 
53 181 158 DECL i ; Round byte count down 
53 53 F7 8F 8 181 159 ASHL #-VASS_BYTE,R3,R3 ; Convert to block count 
50 3 oO 181C 3160 MOVL RO 3; Block count 
0000007F 8F ? H : 1F 19 ys ® RO,#127 ; If less than, skip on 
0 7F gF 9A 1 § 188 MOVZBL #127,R0 ; Else make 127 
A83 CF40 D6 182C 3164 408: INCL BLK COUNT+4(RO) : Keep statistics — 
5 1C A DO 1831 3165 MOVL MSCP$L_LBN(R2) ,RO ; Transfer the logical block number 
53 CO 1835 198 ADOL RO,R 3; Calculate ending block number 
48 AG D1 1838 316 CMPL R35, UQBSL_MAXBLOCK(R4) ; Legal block number 
18 1A 183C 3168 BcTRU 50 : If GTRU no 
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- MSCP Server - Emulator 16-SEP-1984 AX/VMS Macro V04-0 
SETUP = Setup the CDRP for transfers -SEP- 138 96: 92: 33 YnscP” SRCIMSC SCP.MAR; 
C1 183 16 ADDL3) = =RO ht the srl LBN(R4),- 
184 1 (RSJ ; Set ‘real’ sterting LBN 
93 ! r Vf BITB ] RCOREST now ayr ; Is this a no host buffer 10? 
13° «1 28 156 BEQL ; No, continue with setup 
0 184A 3174 MOVL CORPSL_BUFLEN(RS) ; Yes, save length 
D 1846 3175 mova msCPSB BUFFER(R2) ,- : Xfer SVAPTE and BOFF 
1 2 176 DRPSC_ SVAPTE (ASS _ 
"6 17 BRwW 3; And finish 
ae 
1 1 ; Out of Line error routine 
ae 
. ¥ 28 1 5 50$: TSTL (SP)+ ; Get rid of return address 
C 185 184 MOVZWL #MSCPSK 
1850 3185 FCRSCPSC SaTTE. "CNTa8>, RO ; Set error status 
31 : Ht } § BRwW SEND_P ; Leave in disgrace 
6 1860 3188 60$: INCL BLK_COUNT 3; Count zero block transfer 
4 1864 3189 TSTL + 3; Get rid of return address 
1 1866 3190 BRw SEND_SUCCESS 
Hae 
1888 138 ; Not a passthru so grab an internal buffer, and map it 
1869 3195 ° 
DE 1869 136 70$: MOVAL mecese BUF FER(R2) ; Calculate offset of remote buf hdl 
186— 319 PSC RBUFH AD (RS) 
D4 186€ 3198 CLRL cORPSL RBOFF (RS) ; Clear remote offset 
D1 1871 3199 CMPL RACTI THON. 3; Greater than the fraction? 
18 187 00 BLEQU Rog : No, continue 
DO 187 01 MOVL FRACTION,R1 : Yes, use the fraction 
9E 1870 0¢ 80$: MOVAB 511(R1),R1 : Round up 
CA 188 0 BICL ait RI 
7 s 04 BEQL 90$ ; Less than a page 
DE 1 5 MOVAL BUFF_HEAD,R3 : Set up 
DD 1 $ PUSHL Ri ; Save request size 
16 1 JSB @#EXESALLOCATE ; Gr 3S. the block 
+ 1 : BLBS RO,110$ ; Spac 
8EDO 1 0 POPL : Becrtevs request size 
D1 1 10 CMPL R1,SMALL ; Less than smallest fragment? 
18 1 11 BLEQU ; Yes, wait for poo 
7 1 \ ASHL #-1,R1,R1 3; Try for half 
11 : 17 BRB 80$ ; And go again 
8EDO 1 15 90$: POPL CORPSL_SAVD_RIN(R5) 3; Store return address 
OE 1 18 INSQUE CDRPSL gE GEL TRS). 3 Insert on the waiting que 
1 1 amem QAIT+ 
B6 1 8 ety NUM_QUE ; Bum genery § wait counter 
B1 1 1 CMP NUM” QUE ,MAX_QUE > Maximize 
1B 1 0 BLEQU ; curcent 
BO 1 1 MCVW NUM_QUE ,MAX_QUE 3 mum 
1 § 100$: WFINT 3 statl until resource avail 
1 : (Will be activated at CLEAN_UP) 
87 1 4 DECW NUM_QUE ; Decr memory wait counter 
DD 1 5 PUSHL CORPS$L_SAVD_RTN(RS) ; Set return address 
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v04-001 SETUP = Setup the CDRP for transfers mies 1 9:90:33 EMSCP. SRC MSCP.MAR; ’ (1) 
51 E4 AS + 1 D3 § MOVL EREPTL DOCH CAS? ME ; Pick up needed Length 
AG ! 4 BRB 0$ 3; Try again 
! 03 105$: BUG_CHECK MSCPSERV,FATAL ; Allocated region out of bounds 
5E 04 CO 18D 110$: ADDL2 #4,SP ; Flush request size 
18E 3; 77? BUG TRAP 
EBEB CF 5 D1 18E CMPL R2 ,BUFF_ADDR 3; Does address precede allocation region 
F 1F 18€ 4 BLSS 1 ; Branch if yes 
50 =«(51 2 C1 18E 5 ADOL R2,R1,R0 : End of region+1 
EBES CF Di 18E $ CMPL RO.BUFF_END : Is it beyond+1 
E 1A 18F BGTRU 
18F 8 ; 2772 END BUG TRAP 
D6 AS b6 18F INCW CDRPSW bgt big’ ; Bump the state 
B4 A551 D 18F 40 MOVa R1,CDRPS$L_BUFLEN(RS) 3 Save length and address 
E4 AS 51 D1 18F9 44 CMPL R1,CORPSL_OBCNT(R5) ; If the Length has been rounded 
06 15 18FD 4g BLEG =: 126 : then 
1 E46 AS DO 18FF 4 MOVL CORPSL_OBCNT(RS5) ,R1 3; Restore the original byte count 
CAS 51 rt 1903 44 120$: MOVL R1,CORPSL_XCT_LEN(RS5) ; Set Length in place for S/R DATA 
FAAS 02 88 1907 3245 BISB #l1@CDRPSV"BUFFER, - 
1908 46 CORP$B_FCAGS(RS5S : Set buffer flag 
DO AS)6«652.)~—CCsFEOO BF AB SOC+CdA9) 4 BICW3 #*XFEOO,R2, - 
191 48 CDRP$W.BOFF (RS) ; Set the byte offset 
15 98 EF 191 49 EXTZV #VASV VPN, #VASS_VPN,- 
52 2 191 50 R2,R2 ; Virtual page number 
50 00000000°9F DO 191 51 MOVL OarNeSGL SP IBASE RO ; Get address of sys page table 
cc AS 6042 DE Iie 26 MOVAL (RO) CR2J,CDORPSL SvAPTE (RS) ; Set in CDRP 
dD2 AS) =6551—ts«éOD 1? 3 37 130$:  MOVL R1,CDORPSL_BCNT(RS) ; Set the length = byte count 
13 4 22 ; Almost done, now check for shadowing and allocate multiple IRP's 
4C AS D4 1927 57 CLRL CORPSL_SHDW_LNK(R5) 3; Clear out shadow irp Link 
51 AQ AS DE 192A 58 MOVAL CDRP$L-IOQFC(RS),R1 ; Cover IRP portion w/R1 
0200 BF B3 19 : 59 BITw #lamMSCPSV_UF_SSMST,- : If shadow unit 
12 Ad 19 60 UQBSW_UNT FCGS(R4S 
09 «12 2 } BNEQ SETUP_SHADOW 3; then do shadow specific 
19 ? eg SETUP_OUT: 
54 60A5 00 19 64 MOVL CORPSL_CDTX(R5) ,R4 ; Pick up the COT address 
54 10 AG 00 193A 3265 MOVL CDTSL_POT(R4) RA : Set up PDT address 
05 193€ 06 RSB 
1937 | 336 
\3 : 63 ; Shadowing enabled, grab extra IRP's for the multiple operations. 
193¢ | 3571 
193F i SETUP_ SHADOW: 
2 91 193F 7 CMPB #MSCPSK_OP_WRITE,- 
FB A 1941 74 CORPS$B OPTODE (R5) ; Leave if not write 
03 (13 1943 75 BEQL § SETUP_SRADOW_WRITE 
00D 31 + 16 BRW SETUP_SHADOW_READ 
194 78 ; Shadow writes. Check for CIP. If so may need to hold write. If not 
13 79 ; spawn extra IRP's for the multiple write operations. 
184 : SETUP_SHADOW_WRITE : 
01 B3 194 2 BITw”  #UQBSM_CIP,- 


MSCP - MSCP Server - Emulator di. 1 mise ts 9 96:00:35 A es Macro V04-0 Page 4 ¢ 


v04-001 SETUP = Setup the CDRP for transfers -SEP-1984 MSCP.SRCIMSCP.MAR; 
2B AS 136A 3 QBSB_FLAGS(R4) ; If CIP not in progress 
4 13 194C 4 BEQL ; just continue on 
58 A D4 194 5 CLRL CORPSL_FR4X(R5) ; Clear a flag 
22 48 A 132 § MOVL CORP$L_LBN(R5) ,RO ; Pick up starting block 
51 EGA F7 8F 195 ASHL #-9,CDRPSL_OBCNT(RS),R1 ; Get block range 
51 8 C 1328 8 ADDL ° 3; Now ending block 
SC AG D 1 CMPL RO ,UQBSL_FENCEH(R4) 3; Chec 
FE 139 0 BGEQU 2 ; Outside (over) 
58 AS D6 19 91 INCL CORPSL_FR4X(R5) ; Set a flag 
58 AS «O551—SiéiOTs«1967 3 CMPL R1 ,UQBSL_FENCEL(R4) ; Check block range 
36 ig 1968 329 BLEQU § : Outside (under) 
8 88 196D 2 108: B1SB #UQBSM_CMDPEND ,- ; Set a write pending 
28 AG 196F 5 UQB$B-FLAGS(R4) 
18 AS 8EDO 1971 36 POPL CDORPS$L_SAVD_RTN(R5) ; Hold return adress 
F956 0 1975 9 BSBW DEALLOC BUFF :; Get rid of buffer 
50 33 AS F 1978 38 REMQUE CDRPSL_0QB FL(R5),RO ; Remove from executing queue 
0 AS B7 197C 9 Cw yeese Rum_QUE(R4) 3; (make count agree) 
74 B4 60 oF 197F 00 INSQUE (RO) ,@UQB$SQ SHQ+4(R4) ; Insert on special queue 
D6AS 6006 OB 1983 01 OVW #6,CORP$W_STATE(RS) : Set state as special queued 
198 $06 WFINT 3; Block and wait for copy to complete 
18 AS DD 198A 330 PUSHL CDRPS$L_SAVD_RTN(RS) 3; Restore 
50 0B Bo 198D 304 MOVW #10$_WRITEPBLK,RO ; Set for write 
FE2C 1 122 30¢ BRW SETUP 3 Now try again 
199 09 : Now either we had no copy-in-progress on the shadow unit or we did but 
199 308 ; the 10 was outside the fence. If the latter, then we write to all 
133 4 ; units if under the fence; and to all units except the CIP unit if over. 
01 26 ag Hy 1933 V 20S: eer ey EPROM, SHON STS IBS 6" 5 ie shadow count <= 1, 
3 en 
FF9A 831 4-43 13 BRW SETUP_OUT ; do NOT shadow 
7E 26A4 3C 199C 15 25$: MOVZWL UQBS$W_SHDW_STS(R4),-(SP); Set up unit counter 
51 AQ AS DE 19A0 16 MOVAL CDRPS$C_IOQFL(RS) ,Ri : Cover IRP portion w/R1 
64 p60 19A4 3317 30$: MOV). UQBSL_SHDW_FL(R4S.R3 =: Pick up possible shadown UQB's 
01 93 19A7 18 BITB #UQBSA_CIP,- 3; Check for copy in progress 
28 A3 1949 331 QB$B-FLAGS(R3) 
09 13 19AB 0 BEQL 3; None, all is okay 
05 58 A E8 19AD 1 BLBS SEO TLFRAEIRS) 408 ; CIP, but 10 is under the fence 
4 § DO 61981 é MOVL R3,R4 ; Ooops, try another 
60 11 1984 : BRB 50$ : Check for end of Line 
1986 5 ; Grab an IRP for each active shadow set member 
51 DD 198 § 40$:  PUSHL 1 ; Save R1 
51 00C4 of C 198 3 MOVZWL #IRPSC_LENGTH,R1 3; Size for an IRP 
EC94 0 198D BSBW ALLOMER 3; Grab one 
1 BED 1300 0 POPL ; Restore 
03 50 3 19C 1 BLBS RO,45$ 3; Success 
0089 13c8 § BRW SETUP_ERR 3; No space left 
1309 : 3; Fill in the IRP with the essential transfer fields 
dO 19¢9 ° 45$:  MOVL #<DYNSC_IRP@16>!- ; Set size and DYN code 
cs a2 ooovoono gr Hae fae Ergetgaynt eto: 
A 
¥ 88 1364 § BISB wiScDRPRy SLAVE, - 3; Set the slave IRP flag 
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v04-001 SETUP = Setup the CDRP for transfers mets 96:00:33 ERScP SRC MSCP.MAR; ° (1) 
FA A 1903 rk DRPSB_FLAGS(R5) 
009% C 2 DO 19D 4 MOVL R5,1RP Ponal Henn (ne) ; Set pointer to CDRP 
GA DO 19DA 1 MOVL R35, 1RPS$L_UQB(R2) ; Set pointer to UB 
OOAC f D4 19D 4 CLRL ss TRPSL shu LNK(R2) ; Clear shadowing pointer 
OOAC C 0 19€ 44 MOVL R2, I RPSL sfby LNK(R1) ; Set back pointer 
cA A D 19€ 45 MOVQ CORPSH_STS(R J,- ; Copy transfer parameters 
AA I9EA 3346 RPSW-STS(R2) 
7 A DO 19EC 4 MOVL CORPSL_BCNT(R5),= ; Ditto 
A 19EF 48 IRP$L~BCNT(R2) 
48 A DO 19F1 4 MOVL CDRPSL_LBN(R5) ,- ; Ditto 
OAB 19F4 3350 JRPSL-LBN(R2) 
4 4 ore 2 MOVL RS,R4 5 Copy UQB pointer 
CO A5 «DO (19FA MOVL CDRP$W_FUNC(RS),- : Ditto 
$ A 19FD 5 IRP$W_FUNC(R2) 
AS D0 i19FF 54 MOVL UQBSL_O0CB(R4),- 3; Ditto 
iC A 1A0e 55 RP C_UCB(R25 
| ae DO 1A0 2$ MOVL & 3; Cover IRP 
£8 A DO 1A07 5 MOVL CDRP$W_SLOT(RS) ,- 3; Copy flags and unit 
58 A 1A0A 3358 JRPSW_SLOT(R2) 
CG DO 1A0C 59 MOVL R2,R1 ; Copy IRP pointer 
36 A2 B44 1A0F 3360 CLRW = [RPSW_STATE(R2) : Clear out indicator 
01 88 A112 3361 BISB #1aCDRPSV_SLAVE,- ; Set the slave IRP flag 
SA Al 1A14 36¢ IRP$B_FLAGS(R15 
6— 07 1Ai6 363 50$: ECL (SP) 3; Count down 
8A 1A 1A1 64 BGTRU 30$ ; More to go 
43 5 1A1A 65 TSTL (SP)+ 3; Clean stack 
f ; End of the Line 
FFI 1 sare ? BRW SETUP_OUT End of the Li 
4 oe 3 Shadow reads. Pick the next unit to read from. Advance the ring pointer. 
1A1F 3370 SETUP_SHADOW_READ: 
51 64 00 IAF 71 MOVL UQB$L_SHDW_FL(R4) ,R1 3; Pick up first unit 
74 05 51 DO 1A22 ie BOVE R1,CDRPSL_STRT_UQB(RS) ; Set end condition 
15 19 1A g 7 BS SELECT FIRST _UAIT ; Pick up first useable reader 
06 1 1A 74 BEQL 9$ ; ERROR 
61 DO 1A2A 75 MOVL UQBSL_SHDW FL(R1),- 3; Update master UQB pointer 
64 1A2C id: UQBS$C_SHD@_FL(R4S 
FFO6 = 331 wy D 4 BRW SETUP _OuUT 3; Leave 
iA p 23 999$: BUG_CHECK MSCPSERV,FATAL ; ERROR 
- r 1 ; SELECT_NEXT_UNIT = Loop thru the shadow members 
1A34 : : Ri --> Base UQB to start from 
4 ? : ; seen USE CIP IF BELOW FENCE? 
1A 2 § ENABLE LSB 
1A34 8 SELECT_NEXT UNIT: 
51 61 DO 1A34 : move UQBSL_SHDW_FL(R1),R1 ; Pick up next candidate 
7405 §1 D1 1A37 p CMPL R1,CDORPSL_STRT_UQB(RS) ; Have we gone around the ring 
14 13 A ; 9 BEQL 20$ ; Yes, just error out 
1A3D 38 SELECT_FIRST_UNIT: 
01 93 1A3D 94 BITB #UQBSM_CIP,- ; Check for possible copy in progress 
28 Al 1A3F 99 YOB$B_FLAGS(R1) 
Fl 12 1A41 6 BNEQ 10$ : Yes, disqualify 
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v04-001 SETUP = Setup the CDRP for transfers ey 7 96:00:03 ERSCPSRCIASCP MAR; . (1) 


OE Al ° 1A43 97 TSTW yeesu. STATUS (21) : Check for i 
gf 1A08 38 BNEQ $ No. disquali y 
C4 AS 1 00 1A4 9 MOVL R1 ate + end ; Transfer new UQB pointer 
30 Al DO 1A4C 3400 MOVL § UQ6$L_UCBTR1),- : Transfer UCB pointer 
BC AS 1A4F 3401 atte ice CRS) 
05 12] r § 20$: ; Leave with status 
142 404 -DISABLE LSB 
1A5 405 ; 
1A5 4 gi ERROR handler 
1A5 4 
1A 408 geTUP. ERR: 
SE 08 CO 1A 4 ADDL ; Get rid of return address & count 
50 OOAA BF 3C 1A55 3410 MOVZWL ASSMSCPSK _ST_SBCOD! = 
1A5SA 3411 MSCP$K_ST_CNTLR>,RO ; Set error status ;*** TEMP 
FO77, ss 331s 1ASA 33412 BRW _PKT ; Leave in disgrace 
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1A 4 tie -SBTTL DO_DISK & BACK = DISK 10 utility routines 
ins 8449 3 
1A p ‘18 ; DO_DISK = Routine to set up IRP for disk 1/0 
1A2D 3420 ; Inputs: 
1A5D 34 é : R3- Current IRP address 
1A5D 34235 ; R4 - POT address 
1A5D 34264 ; RS - (Master) CDRP address 
1Ag0 425 ; 
inp 8059 
Age r 8 -ENABLE LSB 
1A5D 3450 DO_DISK: 
53 AO AS 9 1029 r 1 MOVAB CDRPSL_IOQFL(RS),R3 ; Cover IRP portion 
1A61 134 DO_DISKA: 
51 C4 AS DO 1A61 434 MOVL CORPS$L_UQB(R5) ,R1 ; Pick up UQB ptr 
OE Al BS 1A65 435 TSTW  UQB$W_STATUS(R{) ; Has it gone AVAIL while we waited? 
OA 13 1A68 34 § BEQL DO_DISKX 3; No, finish 10 
50 O1A4 BF 3C 1A6A 343 MOVZWL 9 #SS$_MEDOFL,RO ; Yes, give error code 
05 1AGr rh RSB : and leave 
1A70 3440 INV_FUNC: 
4 rr BUG_CHECK MSCPSERV,FATAL ; Invalid function code 
1A74 103 DO_DISKX: 
00B0 C3 BEDO 1A74 3444 POPL IRPSL_FPCX(R3) 3; Where to return after IOPOST 
0088 C3 «454 DO 1A79 3445 R4, IRP$L_FR4X(R3) : Save R4 
1A7E 446 ASSUME CDRPSV_SCAVE g0 0 
05 3A A3 €8 1A7 44 IRP$B_FLAGS(R3) ,5$ :; If this is a slave IRP. then 
CAS «DO (1A8 448 MOVL  CDRPSC_XCT_LEN(R5),- ; Save Length in a safe place 
64 A5 1A85 344 CDRPSC_XCT_LENX(R5) 
Oc A3 1B3F ‘CF 9E 1A87 3450 5$: MOVAB W*BACK,IRPSC_PID(R3) 3; Addr to which IOPOST will return IRP 
1C AS D4 1Ag8 $3! net cL . CORPSL_ASG_BOF (R5) ; Mark it not in use 
3 egin bug tr 
50 20A3 06 O00 EF 1A 438 ext ° aiObv_F CODE, = 3; Isolate function code 
1A96 3455 IRPSW~FUNC(R3) ,RO 
oc 50 ~B1 138 +28 CMP RO, #10$_READPBLK 3 Read? 
1D 13 1A9 45 BEQL 7$ r Brench if read 
0B 5 B1 1A9B $28 CMPW RO, #10$_WRITEPBLK 3; Write? 
1 13° 1A9 45 BEQL 7$ ; Branch if write 
5 OD TAD 460 PUSHL R5 3 Save CDRP address 
55 1C a 4 1AA 461 MOVL IRP$L_UCB(R3) .R5 ; Get UCB address 
55 poss DO 1AA6 466 MOVL UCB$L_DDT(R5).R5 ; DDT address 
cO 08 B é E1 1A 46 BBC RO, @DOTSL_FDT(R5) , INV_FUN ; Branch if function code is invalid 
8EDO 1a80 464 POPL R ; Restore CDRP address 
OA é e is 102 Hi RO, #10$_WRITECHECK 3: Writecheck? 
B4 AS 32 tH of 1AB8 487 7$: Hae SPSL BCHT (RS) .CORPSL _BUFLEWIRG) 
50 2C A3 00000000°S¢ C3 1ABF 488 SUBL a#MMG$GL SPIBASE - : Get address of buffer page table 
1AC8 470 IRP$L_SVAPTE(R ),RO 
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V¥04-001 DO_DISK H BACK = DISK 10 utility routine wet taet 1 96: 90: 33 EmScP” SRCJMSCP.MAR; . (1) 
50 07 78 1AC8 347 ASHL 993°% RO, . 3; Conver ddress in segment 
09 + ee ee a ore BBSS S Ser’ 80000000 bi ’ 
DO AS AO 1AD0 3473 718:  ADdDW2 Conety Feces) 
BB AS > p VAD, ar CHPL RO CDRPSL PBUFADR CRS) ; Is buffer address consistent? 
ESF1 CF 5 if 1ADA +08 CMPL RO, BUFF _ADDR 
0 1F ADF 347 BLSS 83" ; Start of buffer out of bounds 
50 32 A CO 1AE1 128 ADDL IRPSL epee RO 
E9EA CF 5 Di AES 347 CMPL RO, BUFF _END : Is buffer sonterane within range? 
04 1B 1AEA 3480 BLEQU§ 9$ ; Branc 
ies ; 1 8$: BUG_CHECK “ RSCPSERY.FATAL : Invalid disk buffer address 
1AF 4 4 9$: IRI 
1AF 484 ; 222 end bug tra rap IRI 
50  00A8 cS DO 1AF 485 MOVL IRPSL -LBN(RS) .RO 3 Pick up starting logical block IRI 
4 A3 DO 1AF 4 § MOVL LRPSL~UQB(R ),R ; Pick up UQB ptr IRI 
4 AS B6 1AF9 34 INCW QB$W~NUM_OPS(R5) ; Bump number of packets queued to unit IRI 
54 AS Bl SOTAFC rt: CMPW UQB$W"NUM ~OPSins),- : Greater than current max IRI 
56 AS 1AFF 3489 YQBS_MAR_ OPS(R5S LC 
05 18 1801 3490 BLEQU 108 ; No, skip on Lis 
54 AS BO 1803 3491 OVW UaBsi Nun grns chs) ~ ; Yes, replace current max Lis 
6 AS 1806 49¢ vaBs@ Hos $(R55 Lit 
55 1C AS) DO 180 493 10$: MOVL IRPSL ocecR te 3; and now UCB MA) 
00000000'9F 05 1B0C 3494 TSTL #PMSSGL_IOPFMPDB : 1/0 performance monitoring enabled ? MAI 
23. 12 1812 3495 NEQ ; BR if t yes MA) 
1B14 3496 DSBINT #15 3; Protect 1/0 sequence # manipulation MA) 
00000000'9F DO IBIA 3497 OVL SFPMSSGL IOPFMSEQ,- 3; Insert 1/0 sequence # into IRP MA) 
A 1B20 3498 IRP$L_SEQNUM(R ME? 
00000000'9F 06 186¢ 499 INCL aePMSSGL_ IOPFMSEQ : and bump global counter PPA 
1B 500 ENBINT ; Restore previou us IPL MOL 
00000000'9F 16 1828 3501 20$: JSB a#1OCSCVTLOGPHY : Convert ogical to physical block MS( 
00000000'9F 17 18 y 208 JMP a#EXESINSIOQ 3 Queue the IRP to the driver a 
00000000'9F 16 1837 3504 30S: JSB @a#PMSSSTART_RQ ; Gather Start 1/0 Request statistics MS( 
EC 11 183 202 BRB 20$ a 
18 : i -DISABLE LSB a 
1B3t 509 ; Routine wilt RSB back to our caller's caller which is in the PORT MS( 
1B3F 3510 ; DRIVER. Thread is now suspended and will resume when IOPOST calls us MS\ 
1B3F 3511 ; at entry BACK. MS( 
1B3F 21¢ ; MS( 
1B3F 513; R5 -=-> IRP MS! 
1B3F ae: ° MSI 
1B3F 3515 BACK: ODSBINT #IPL : Set IPL to FORK MS\ 
0100 8F AA 1B45 218 BICW FIRPSRS SRYSIO - 3; Clear the physical 10 flag MS\ 
AAS 1849 351 IRPSW~STS(RSS : only needed for ONLIN mS 
000000 * 0 1008 218 istt OPPASSGL_ IOPFMPDB 5 i ger tormence monitoring enabled ? ag 
00009000°3 1 1883 ; 0 JSB BgPRSSEND_ RQ 3 Gather En vend 1/9 anequest statistics MS 
5 os §6(©} 18 1 10$: MOVL 5.R 3 R35-->head IRP mS 
54 0088 C3 00 185¢ 35 ; MOVL  IRPSL_FR4X(R3),R4 ; Restore Soo. mS 
4A3 DO 1861 35 MOVL  IRP$L~UQB(R3) ,A1 : Pick up UQB pointer mS 
4 Al B67 1865 3 4 DECW tite UM_OPS(R1) ; Drop count of operat ions MS 
1C A3 4! 1B68 5 MOVL IRP$L-UCBTR3) ,R1 ; Pick up UCB pointer aS 
6A Al B7 1B6C 3 $ DECW UCBSWQLEN(R15 : Drop queue Length counter mS 
1B6F ASSUME toRPSo. SLAVE EQ 0 MS 
| 
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Vos~001 UTILITY ROUTINES orEeea TSBs 95:92:53 PASC EM SRC Sicee man. - tm § 
188 -SBTTL UTILITY ROUTINES . 
1s ; teeeereerererrerereerrerereeenareaneneeaneneneerereneaeaneneneeerereeeTe | . 

BB P+ 2 
188 ; * Pp 
138 ; SEARCH _QUE " P 
BB 5 a 4 

1 3 . 
io5 peeeeereerereerererrereerrereneneneeneRaneanareeeaneneraneReneneeAeeeAees . 

188 i+ 

1BB 3 Input: P 
188 3 R35 = héqrese of HQB possible having a CDRP with that command P 
188 : RG = Unit number P 
1s 3 RS = Address of CDRP containing command reference # to search for . 
188 ; Output: P 
188 3 RO = Status P 
1BB 3 Low bit clear if not found P 
188 3 Low bit set if foun P 
188 ; R1 ==> CDRPSL_UQB_FL of the CORP found . 
188 P 
188 SEARCH_QUE : P 
50 D4 188 CLRL RO 3 Set for failure Q 
54 E401 CF44 9 1BBA MOVL UNIT VECER4]..R4 ; Grab UeB Q 
4 1BC EQL 4 3 None there R 
g DD 18C PUSHL R i Grab a register R 
26 OA 1] 18C MOVL CORE DL AS COUE H {R2) «RO ; Pick up buffer R 
6 ‘ A6 DO 188 MOVL MSCPSL_OUT tts i Id to search for R 
AG 8 1BCC TSTW yoesi RUA (R4) ; Any entries on normal que? R 
09 1BCF BEQL 0$ ; No, leave now R 
51 60 Ad 180 MOVAB YOBSL_CORP_FL(R4) RI ; Set to head of que R 
10 18D BS8B i Look tor the packet R 
E 1607 BLBS RO, 308 i; Found it . 
8 1BDA 108: TSTW BSW_NUM_BLK(R4) ; Any entries on blocked que? Ss 
1B0D BEQL 0$ 3 No, leave now $s 
18D MOVAB yaeS0_BLOCKG(RS) .RI ; Set to head of que s 
10 1BE 8S8B 8 i Look for the packet $ 
E | BLBS RO, 308 ; Found it : 
1BE 208 Vv ypgse_ swe nd) At : Set to head of special hold que $ 
10 1BEC BSBB 3 Look for the packet $ 
; 1BE BLBS R Met 3 at t $ 
18F C #uda$v_ciP,- zy If unit is part of shadow copy s 
18F UOBSB-FLAGS(R4),308 =; then 5 
18F MOVL BS tPY CDRP(R4),R1 =: Pick up pointer to its CDRP 5 
1BF8 MOVAB COR uae pL CRT) RI : Adjust pointer 5 
7) 16F CAPL woes Cor R3),- : is this CDRP for this HQB? S 
i¢ DR _COTX-€DRPSL_UOB_FL(R1) 5 
12 1¢ BNEQ 3 3; No $ 
1¢ ASSUME MSCPSL_CMD_REF EQ 0 $ 
dS 1¢ TSTL CORPSL-MSGBUFX- - ; Is there a message buffer? $ 
¢ RPSC_UQB_FL(R1) § 
1 C BEQL 3 ; No, SO Can never match § 
0 1¢ CAPL @CORPSL_MSGBUFX- - s 
1COF CORPSL_UQB_FL(R1),R6 ; Match com ref no in host chain +] 
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d. 3 
p = ASCP Server - Emulator 16-SEP- :00: AX/VAS Macro v04 P 
~001 UTILITY ROUTINES grseeioke $5:92i83 PASCO SacSasep mance oe &, 
eh oe Cae 1m 
BE : R , 
iss: RSB 
17 508: CLAL HY 3; Set for failure 
1 ROVL R1,R2 3; Store pointer 
1 1 ¢ 60$: mov.  (R1),R1 : No, try next entry 
a 1¢ CPL RI Re : End of que? 
13°«1 BEQL 3; Yes 
14 bi iC CRPL HOBSL_COT(R3),- z Is this CORP for this HOB? 
60 A 1¢ ghphPse_corechs) 
‘ 12 BNEQ 3 No, flink on 
1¢ ASSUME MSCPSL_CMD ry} £0 0 
c8aAl «6S OIC § TSTL cor mS ie - 3; Is there a message buffer? 
iC RPSC_UOB_FL(R1) 
ec 13° «ic BEQL 3; No, $0 can never match 
56 «6B bi 1¢ CRPL ocpast As i- - 
1¢ RPSL_UQB_FL(R1),R6 ; Match com ref no in host chain 
§6 12 1¢ BNEQ ; No, loop 
1¢ INCL 8 3; Set success 
1¢ 70% RSB 
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vO6-001 DATA 


«SBTTL DATA STRUCTURE ALLOCATION 


HEOEYSCeTAEDSERIRGy |= PCREBCHBUG $BSQQ:ER. yaBCaNSataare, wats 
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S 
$ 
1 : ® 
1 : . 
} 3 GET_STRUCT * 
1¢ ; 
1¢ SRO eeeeecereccceeeereeererereeneeereeerereereeeeeereeeeeeeeeeeereeeeeeeee 
¢ i+ 
¢ P Input: 
i — 
iC } Output: 
1¢ 3 RO = Stans 
1¢ $ ~ bit clear if none available 
1¢ 3 oy ots set if found 
1¢ 3 RS --> cbRP 
1¢ i- 
1¢ 
1¢ GET_STRUCT: 
55 €433 DOF oF 1¢ 2 ae RP_LIST,RS ; Pick up a CORP 
8 1¢ BVS 3; None Left 
G506 fe F B67 1C6 oECW NUM PK 3; Drop number of free packets 
3 1€4 MOVL s* 758% NORMAL RO 3 set. success status 
is = 
50 01246 BF 3c O14 } 208: MOVZUL hey. jwspney RO ; ERROR 
1E 4 1€4D POPR A<R1R2,R3,R4> : Restore volatile registers 
5 1eef RSB 3; Leav 
1€ 1¢ 308 PUSHR #*F<R1,R2, Bie ~R4&> : Save volatile registers 
51 O0E0 8F 1¢ MOVZUL #816 CORP : Get total size 
EDFA 1¢ BSBW ALL 3; Allocate thea 
€ 50 € 1 5 BLBC RO, 3 No memory available 
+5 4 ; FILL in skeletal CORP 
£5. Be. Be ; mova (SP) 3 Sav 
62 $1 00 94 . mOVCS ac ‘SP? #0,R1,(R2) 3 Clear it all gut 
1¢ mova 3 Recover Longe 
55 60 A 3 1¢ MOVAL Mitte ty pnias)- RS: Set to the CORP portion 
AAAS OA 1¢ AOvB sDYNSC_ ~¥ 
1¢ corse 1k 3 eitt in size/type/rmod tields 
ABA 1¢ mOVY r4,C Aa Zens) > Fill in size/type/rmod fields 
08 A iC MOVE «#1 PL$_ SCS PL(RSS ; CORP IPL 
A 1¢ nOvVB sdynst_ 
1¢ COR co Foc cas) 3; CORP block type 
FFAO BF BO 1C MOV erpaee t 
AS i¢ PSu_ Seba batt F Ditto for smaller portion 
C3 aS €851 CF 90 IC mOvB ° PRI(RS) 3 pone 10 priority 
2c as AS OE 5 MOVAL rae tBUrr CR Matas) 3 sf pointer to local buffer handle 
3a4 CF C ia] oT beret ; Total packets 
f eA C R #°AZR1 RZ, RS R4> 3 Restore voLat ite registers 
0 0 1¢ Bsep =e FREE_Sfruct : List -- has side effect 
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BRB GET_STRUCT i Try again 
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RS ==> CORP 
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tg oid problems (ma A by hanging ont aanets forever 
“ chew PETSMAX- PRT? 


ackets cached? 
Branch eet as oa 


Output: 
NONE 
REE_STRUCT: 
Mung structure ai°che tra $s 
MOVL } (RS) 3; Zap IRP queue Lin nhage to catch bugs 
L a EDR O81 (RS) ; Zap CORP queue Li iio to catch bugs 
#1,CoR yee (RS) 3 ap another 
MOVL 1,COR pTTtr5) 3 cor eaeress 
MOVL #1,COR CDOTX(RS) 3; ZAP COT address 
#1,COR psGeys xine) 3; ZAP +34 message buffer address 
MOVL #1,COR MSG ar >) | ZAP SCS message buffer address 
MOVL #1,COR TR5) ; ZAP UGB address 
ROVL #1,COR ms yaa ias) ; ZAP master UOQB add 
MOVL #1,COR FR3RCRS) 3; Alia IR MAINCORP 
ROVL #1, COR wiht 3; ZAP address 
OVW #6 OR $ ereie ) ; Set state inva 
MOVAB -CORPSL_FPC(RS) ; Zap CORP fork PC 
was “208 ,,CDORPSL_PID(R ; Zap fork PC 
R FPCX(RS) ; Zap another fork PC 
fe te the structure ° 
oe” 
NSQUE ) ,@CORP_LIST+4 ; Return the. ¢ arp 
wu wun. BRI ; Account for 
37108: PUSHR cota * Ashe R3> 3; Save voteeste vogveters 
33 MOVAL R5),RO 3 girye ture address 
33 Bey 3 ocate stryeture 
33 i enna Ma R3> 3 peesere velar! e registers 
33 pece ; Drop count of allocated structures 
33 $8 3; Return 
208: BUG_CHECK MSCPSERV, FATAL 
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"SSE ASRS V5iR2i83 EASCEEACIASCe Aan: 


*4, 4, 4, 04,724, 

#6 926 994,506,004, *4, 
4 B24 ,8e4 824,824, e4, 
#4 024 004,004,004, *4, 
04 B24 824 024,004, 24, 
#4 G04 504 ,1206 726,006,026 ,0 


04,1108 1184, 38 008 
#4 B04 806 826,524, 
e4, ob cBee: *4 024, 
#4 B04 B24 004,006, 
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“C<ASCPSM_MD_NXUNT !- 

or MSCPSM_MD_CLSEX> 

“¢ 
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“C<MSCPSM_MD_S te 
msc ~Ab ALL ED 
ASC po ft EX> 

Sart: _MD_RIP!- 
mS a te 
MSCPSA_MD_STWRP!- 
MSCPSA_MD_SHDSP!- 
MSCPSA_MD_ sex? 

“C<MSCPSM_MD_STWRP!- 
MSCPSA_MD_SHDSP!- 

ac MSCPSA_MD_CLSEX> 

a" 
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10-SET UNIT CHAR 
! “DETERMINE ACCESS PATH 
1 
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READ ONLY DATA 


vOe-001 inl TALES GOH IRE fs Br SEp=198e 99:92:03 HAscorsactnsce mane ee: vi 


} ~SBTTL INITIALIZATION ROUTINE 
: 3+ 
; This routine is called to initialize MSCP server from SYSGEN. 
! ; Inputs: 
1 : AP ==> #Args 
1 3 act a 
1 FB ; BUF fers 
1 PAC=12 ; PACkets 
1 HOS=16 ; HOSts 
1 TIM=20 ; TiMeout 
1E PRI=24 ; PRior ty 
iE SMA= § ; SMALLest buffer 
\e FRA= 3 FRAct ional buffer 
Hi ; Outputs 
IE 898 ; RO Status code 
1E i-- 
1E 5 
H -ENABLE LSB 
50 0124 BF 1E 904 108:  MOVZWL #SS$_INSFMEM,RO : Insufficient non-paged pool 
OOFA 34 H BRW toe " Sonpctihacke goed apt tat cnn 
iE 907 START_CONT: 
51 08 of 0 1E 908 MOVL FCAP),R1 3; Pick up user specified 
31 out 1E ¢ 909 MOVAB 1(R1)<R1 
1 1fF BF AA IE . BICW #511,R1 3 gound 4 to page 
E219 cf 1 09 1E 1 VL —s«R1_, MAX_BUF : Save size 
1 10 CO tE 1 ADOL #16,R1 : Allow tor heeder 
1€ 1 SETIPL @ ; Set us non-deletable 
8! 164 1 BSBW Ss ALLOMEM : Allocate it 
1) E 1523 1 BLBC RO, 3; Can't s otecese 8 buffer 
£680 CF 164 1 MOVL =6OR “BUFF LENGTH ; Length 
E67F gf 1E4 1 MOVL R2, BUFF" ADDR : er header satvees 
E67D CF $2 ¢ 1€ 1 ADDL3 R1.R2,B0FF_END ; First byte beyond buffer 
2 m iE CLRG” (RB) 9 Clear FINK «BLINK 
82 51 00130000 BF ci iE ADDL3 #<DYNSC_BUF10@16>,R1, crass nto 
D4 IE CLRL =_-«s (RR) + ; shi B. “te “byte ry 
E1ES CF 1 MOVL R2 BUFF HEAD 3 Set = pter o buffer 
1E CLRL_ = (ROD : Set up 
62 $1 C iE & SUBL3 #16,R1,(R2) : Ditto 
IE $3 : Pre-allocate CDRP's 
57 OCA 1E . MOVL PAC(AP),R7 : Pick up user specified 
02 5 bf 1E CAPL ap #2 3; Must be t least 
1E7 BGequ 15% ; Branch if 2 or more 
57 3 MOVL #2,R7 : Make it 
E15 CF A 15$: OVW R7,PACKET ; Send to MSCP 
1 10 At lE7e MOVL HOS (AP) RI : Pick un number of hosts 
E1c4 CF OS 1€8 MOVW R1,INI_HOST ; Save in comm area 
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} Establish Link 
' SeTIPL 
STEN 
in 


-DISABLE 


HERE ESS 
me: 


MSCP_END: 
-END 


"SSEpTSRe PFERiG3 EASCHMERCSRSee mans 


mOVe = RI, T 
RBS AYA far 
; Set up the queues. 
, MOVAB msce t nat 
MOVAL 
MOVL €_MURQUE ,RO 
20S: ADDL? 4% a) 
SOBGTR 
MOVAQ naéts , RO 
§ MOVL =_- RO, CR 
A‘ MOVAL (R6)+, (ROD 
81 SUBB3 © PRICAP) ,#32,!0_PRI 


: Set some miscellaneous values 


esas 
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it WAX BUF 

RAK chal RO 

4 Mae CTR wr ood 
gsc crscStob St SYSTEMID 
cFSESBCB,s SYSTEMID+4,- 
with PORT_DRIVER 
#IPL$_SCS 

RSGADR=LIS FORK,=- 


S"ERR,= 
PRNARSSERO —NAME ,~ 


BRINFO=SERV- INFO 
asst. NORMAL ,RO 


LSB 
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“S<LC#15>8-16 


3; Set the controller id 
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seve in comm area 


mes the hosts = maximum packets to cache 


Point to our header 
Start ress of queve 


r of queves 
ae thru absolute 


: of HOB's 
nitialize forward pointer 
nitialize backward pointer 


Set the 10 priority to internal value 


Set the Srecttonet byt ier 1/0 
4 it bigger th than 1 
all 
on is 127 bl 
ser - smallest fragmen 
L aoy not be lar 
Branch 


MAX BUF’ than 
Ser the “smallest fr t per 1/0 
Set the controller agnent oe 


Coordinate activities 
Establish ourselves as Listener 


Store the CDT away 
Set success 


pd, Se initialization 
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Symbol table mets 7 96:00:33 ERSCPSRCIMSCP. MARS . (1) 
MSCPSV_MD_SHDSP = 00004 MSUSL_HOST_DSBL 9 068 
MSCPSV_MD_SPNDW = § j BSUSL HOST VEC 1 
MSCPSV_MD_STWRP 2 MSUSL_MAX_BUF 8 O38 
MSCPSV_UF_SSMEM = 3 MSUSL_MEM_WAIT 78 
MSCPSV_UF_SSMS = MSUSL_ONLINE 1D4 
MSCPSV_UF _WRTPH = 00 D MSUSL_OPCOUNT 0000180 
MSCPSV_UF —WRTPS s 8 $ C MSUSL_P1 8 p00¢ 

SCPSW_CNT_FLG = 00000 MSUSL_P2 0 4 
MSCPSW_COPY_SPD = B8008 MSUSL_READ B808 34 
MSCPSW_CYLINDER = 000000 MSUSL-SETCTRL 0 001¢0 
MSCPS$W_EXCL_LBC = 000 8) MSUSL_SETUNIT 0000108 
MSCP$W_GROU = 8 8 MSUSL_ SMALL 8 $028 
MSCPSW_HST_T = 0 MSUSL_STATE 4 
MSCPSW_MODIFIER = QQQQ000A MSUSL_UNIT_VEC 0000090 
MSCP$W_MULT_UNT = 0000000C MSUSL_UQB_CIST tT 
MSCPSW_RCT SIZE = 0000002C MSUSL_WRITE 00002 
MSCP$W_SHDQ@_STS = 00000022 MSUSQ_CTRL_ID 0000190 
MSCP$W_SHDW-UNT = 00000020 MSUSQ-CTRL- INFO 0000198 
MSCPSW_STATOS = Q000000A MSU$Q_HQBLIST 00000484 
MSCPS$W_TRACK = 00000024 MSU$Q_QUEUE 44 thy 
MSCP$W_UNIT = 60000006 MSUST_NAME 0000014 
MSCPSW_UNT_FLGS = Q000000E MSUSV_START = 0000001F 
MSCP$W- VERSION = 0000000C MSUSW_INI_HOST 0000004C 
MSCP_BEGIN 00000000 R 02 MSUSW_INI_ 00000046 

SCP_COMM_AREA ait 4s R bg MSUSW_MAX_PKT 0000004A 
MSCP_END 0001F 30 R 0 MSUSW_MAX_QUE 00000062 
MSCP-START 00000409 R 02 MSUSW_MIN_PKT 0000004A 
MSG_IN 00000876 R 02 MSUSW_NUM_HOST 44 
MST_UQB = 0000002C MSUSW_NUM_PKT 0000004 
MSUSB_CTRL_DAT 000001A0 MSUSW_NUM_ QUE 44h 
MSUSB_ SUBTYPE 00000008 MSUSW_PACRET 0000044 
MSUSB_TYPE 0000000A MSUSW SIZ 00000008 
MSUSB_VEC 00000024 NEW_UGB QOO00F80 R 02 
MSUSC_LENGTH ied NONAOSTSET = 0000E280 

SUSC_ = 0000000 NOT_FOUND 0000094D R 02 
MSUSK_AC_AD = 0000000 Seq 00001342 R 02 
MSUSK_AC_DISC = 00000005 SEQB 000013A8 R 02 

SUSK_AC_R = 00000004 NUM_HOST BO bbe SE R 02 
MSUSK_AC_STOP = 00000002 UM_PKT 0000048 R 02 
MSUSK_AC_STRT = 00000001 NUM_ QUE 44 OR 02 
MSUSK_LERGTH inst OLD-UQB 0000F25 R 0 
MSUSK—MAX_HOST = 000 10 ONL TNE 99000 7R 0 
MSUSK~MAX~OPC = 0900004 ONL_ABORT_ERR 9001269 & 0 

SUSK_MAX T = 44h 10 ONL_COPY B00 65 R 8 
MSUSK_UNIT_S1Z z= 00004 ONL—F INI 00011E1 R 

“ABOR 8 01B4 ONL—F INIX 000011E3 R 0 
MSUSL_AVAIL 00001D ONL~LOOP OOOOTOCE R 0 
MSUSL_BLKCOUNT 8 ONL-LOOP_CHK O00 NR R 0 
“BUFF _HEAD ONL~READ 1 $ R 0 

MSUSL~CORP-LIST 0 ONL" READ_ERR 001 a 0 
MSUSL_ CDRP~ SAVE $ 06 ONL-WRITE 001121 R 0 
MSUSL_CDSV_SIZE 6 ONL_WRITE_ERR ie 9R 0 
MSU$L_D1 0 OPC~COU 9 BO R 0 
MSUSL— 3 4 OUT 4AC R 

Raunt ert Hf Bue 1h 
MSUSL_GETUNIT 00 1BC PAC = ' 000C 


——_—_——+ 
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Symbol table iets 7 96:00:33 Yn P. SRCIMSCP MAR; . 9 
PACKET 0044 R SERV_NAME 1 R 
PATCH 0001Dag 8 88 SETUP gis a 
POTS _PDT_TYPE = SETUP_ERR 1A52 R 
= 4 SETUP_OUT 1936 R 
POTS “ALLOCMSG = 4 SETUP SHADOW 193F R 0 
PDTSL_DEALLOMSG 2 8 0 SETUP SHADOW_READ OOOIA1F R 
PDTSL_DEALRGMSG z 8 4 SETUP-SHADOW_WRITE 1948 R 0 
PDTSL_MAPIRP s 00034 SETX ~ oC ® 0 
PDTSL_RCLMSGBUF = 0000 bee SET_CTRL_CHR AAO R 0 
PDTSL_REJECT 2 op f SET-UNIT-CHR 1 R 0 
PDTSL_REQD = 0000005 SLVSK_SDATA 2 
POTSL “SENDDATA = 09000084 SMA = 
POTSL_ SMOCNTRSG z 60 SMALL 8 02 
pDTSt — = 00000064 ss QOO0A11 R 0 
PMS SERD aeeeeeeer = X 0 SS$_BADPARAM = 38 
PMSS$GL OFOPEMPDB teeeeeee = X 0 SS$_CTRLERR = 00 
PMSS$GL~ IOPFMSEQ aerereee XK 0 SS$_DATACHECK = 00 
PMSS$START_RQ eerereee = X 0 SS$_ FORCEDERROR = 00 
$_IPL = 0000001 SS$_FORMAT = 00 
= 0000001 SS$_ILLIOFUNC = 00 
PRMSW = 00000001 SS$_ILLSEQOP = 88 
PRTSC_ER = 00000007 SS$_INSFMEM = 00 
PRTSC EW = 00000005 $S$_IVBUFLEN = 00 
QUEUES 00000070 R 02 SS$_MEDOFL = 00 
QUE _NUM = 44 48 S$S$_NORMAL = 00 
READ 00001 a R 02 SS$_PARITY = 00 
READ_CONT 00061408 R 02 SS$_SHACHASTA = 00 
READ_ERR 0000156F R 02 SS$_TIMEOUT = 00 
READ_INVALID_CDT 00001407 R bs SS$_VOLINV = 00 
REA Q00013F4 R 0 SS$_WRITLCK = 00 
READ-REPAIR OOOO15SAF R 02 START 90 R 02 
RED OaB = 00000 $8 START_CONT 0 R 02 
REMOVE 00000575 R 02 STATE 00 ] 02 
REPLACE 000013A2 R 02 STOP 00 R 02 
RSBX 00000669 R Os ST_BLK_QUE 00 R 02 
SCSSACCEPT aeeeeeer GX 0 ST-DAT_WAIT 00 a 02 
SCSSALLOC_RSPID tereeeee = X 0 ST“ORV_WAIT 00 R 02 
SCSSDEALLRSPID tereerer XK 0 ST"MAP_WAIT 00 R 02 
SCSS$DISCORNECT teeeeeee = Y 0 ST"MEM_WAIT 00 R 02 
SCS$GB_SYSTEMID teeeeeee =X 8 ST"MSG_WAIT 00 R 02 
SCS$GL_MSCP eerenere § x ST-ONBCK QUE 00 R O¢ 
SCSSLISTEN aeeneree GX 0 ST-SHQ_Q0E 00 R 0 
SCSS$LKP_MSGWAIT teeeeeee § X 0 TIA = 00 
SCSSLKP_RDTCDRP aeeeeeee =X 06 TST_END 98 R 02 
SCSSLKP-RDTWAIT eeereeer 86 UCBSB_ONLCNT = 
SCS$L_DST_CONI = preeeree UCB$B_ SEC = 00 
SEARCA_QUE 0001888 R 0 UCB$B_ TRACKS = 00 
SELECT_FIRST_UN 1A3D R 0 CBSL_DDT = $ 
SELECT-NEXT_ONI 1A34 R 0 UCBS$L_DEVCHAR = 
SEND_ATT 508 R UCBS$L-MAXBLOCK = 
SEND_END AED R UCBSL~ 2 
SEND_MISMATCH AIC R UCBSV_MNTVERIP = 
SEND_PKT AD4 R UCBSW"QLEN = 
SEND-PKT_STS ADE R UNIT_QEC # 02 
SEND_SUCTESS AD2 R UQB$B_CMD_PEND 
98 9 AO R 8 UQB$B- FLAGS 
SERV_INFO 1CEC R UQB$B-HOST_CNT 
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Psect synopsis -SEP-1984 17:14:0 MSCP.SRCJMSCP.MAR; (1) 


gee scos ses ee on eee e 


! Psect synopsis ! 


¢ oem emcee nr conn ona $ 


PSECT name Allocation PSECT No. Attributes 

» OS ~ 00000000 e-3 0 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS ait og ( 1e¢ oa 1¢ 1.) NOPIC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

MSCPSCODE 00001F ( 7984.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
pew mw ert eae swe m an woe ae ae + 
H Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization 9 BO 8000 0 08:00 :6 49 

zonnend processing 743 bs So ee Se 89 

ass :00:36. 7:01:53. 

Symbol table sort 0 Bo + 8008 «6g 00:00:15.83 

Pass 2 418 Shs BBN SY 00:00:36.60 

Symbol table output 0 88 288 108 § BF RR Bt Ss 

Psect synopsis output 8 00:00:00.0 00:00:00. 

Cross-reference output BF OR - 28 00:00:00.00 

Assembler run totals 1244 00:00:53.00 00:02:58.69 


The working set Limit was 2550 pages. 

202644 bytes (396 pages) of virtual memory were used to buffer the intermediate co 
There were 160 pages of symbol table space allocated to hold 2769 non-local and 28 
3988 source Lines were read in Pass 1, produc ing 31 object records in Pass 2. 

57 pages of virtual memory were used to define 54 macros. 


de. 
5 local symbols. 


+ + 
; Macro library statistics ! 


eee ese ee ee ee Bee eH eee ee $e 


Macro Library name Macros defined 
_$255$DUA28:(SYS.0BJJLIB.MLB;1 33 
“$255$DUA28: CMSCP.OBJ JMSCPDEF .MLB; 1 3 
$255$DUA28: (SYSLIBIJSTARLET.MLB;2 10 
TOTALS (all Libraries) 46 


2911 GETS were required to define 46 macros. 


There were no errors, warnings or information messages. 
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